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Vicenza  1  MAGGIO  1984 


LABORATORIO  DI  FISICA  -  ACCELERAZIONE  . EX.B. 

SIMULAZIONE  DI  VOLO  -  ECCEZIONALE . EX.B. 

ORGANO  SUL  TI  . BASIC 

ANIMAZIONE  NELLA  GRAFICA . BASIC 

JUNGLE  JIM  Versione  Italiana  Migliorata. . EX.B. 

IL  TUBOLARIO  Le  frasi  del  tubo . BASIC 

BATTLE  STAR  Bellissimi  e  velocissimi  Sprites . EX.B. 

BEETHOVEN  NONA  SINFONIA  Inno  alla  Gioia . BASIC 

MUSICA  DALLA  TASTIERA  DEL  TI . BASIC 

DIMENSIONI  DI  RETTANGOLI  IN.1  GRAFICA  DA  INPUT . BASIC 

MOSAICO  ANIMATO . BASIC 

PROGRAMMA  AREE  Un  eccezionale  programma(By  Randone ) EX . B . 

FREQUENZE  DI  UNA  LETTERA  IN  UN  TESTO . BASIC 

MINI  TEXT  EDITOR . BASIC 

FREQUENZA  TEST  dei  suoni  udibili  dall'uomo . BASIC 

SCRIVIAMO  IN  MINUSCOLO  COL  TI . BASIC 

LE  CAPITALI  DEL  MONDO  (  tutti  gli  Stati  ) . BASIC 

RANDOM  MUSIC  Concerti  casuali  sul  TI.. . BASIC 

TRAVERSATA  MOVIMENTATA  Un  pedone  sulle  strisce . BASIC 

PROGRAMMA  DEI  FILES . BASIC 

NIGHT  BLOCKADE  (  battaglia  sul  mare  ) . BASIC 

FACCIAMO  UNA  BIBLIOTECA. . BASIC 

EVASIONE  dal  Carcere . BASIC 

BASE  ALFA  In  bellissima  grafica . BASIC 

LO  ZIO  LA^RY  del  West  alla  chitarra . BASIC 

FLACK  ATT ACK  Battaglia  area  di  Jet.... . BASIC 


TRUCCHI  SULLA  MACCHINA,  Record,  Files,  Joystick  Atari. 


Siete  ancora  aumentati  di  numero  e  le  vostre  innumerevoli  lettere 
e  telefonate  non  mi  lasciano  indifferente.  Un  anno  fa  uro  dei  pri= 
mi  in  Italia  mettevo  il  primo  seme  in  un  terrene  molto  arido  e;  ar= 
cora  inesplorato.  Dodici  mesi  e  ho  visto  nascere  una  gigantesca 
pianta  che  con  le  sue  radici  tocca  ormai  tutte  le  c  itts  ~  i tal  lane. 

Ci  davano  per  spacciati  a  noi  Texani,  isolati,  sperduti,  Quasi  de= 
risi.  Siamo  invece  oggi  3CC0  !!!!  La  più  grande  famiglia  di  un 
Home  Computer  d'Italia  che  converge  in  un  unico  punto  e  che  riceve 
da  esso  notizie  fresche,  informazioni,  listati  inediti  e  sopratut= 
to  amicizia.  All'altro  capo  del  filo  nessuna  Redazione,  rapporti 
impersonali,  sempre  e  solo  io  FRANCO  e  al  massimo  mia  moglie. 

Non  ci  siamo  mai  visti  e  ci  diamo  tutti  del  tu  come  se  ci  cono= 
scessimo  da  anni.  Non  ci  siamo  mai  visti  e  ben  50  di  voi  mi  hanno  in: 
vitato  a  passare  le  vacanze  con  loro  ,  ospite!!!! 

GRAZIE  !  GRAZIE  !  GRAZIE  !  Sono  commosso,  felice  e  ripagato  di 
tante  tante  ore  dedicate  a  voi,  alla  vostra  corrispondenza,  alla 
vostra  rivista. 

La  mia  Estate  sarà  qui.  I  giovani  liberi  dallo  studio  saranno  im= 
pegnati  sulla  tastiera.  Non  posso  certamente  lasciare  muto  il  te= 
le  fono,  non  posso  certamente  nel  momento  che  più  avranno  bisogno 
di  me  essere  assente.  Quanti  giovani  premono.  Li  vedo  nei  miei 
nuovi  locali.  20  computer  a  loro  disposizione,  tutti  per  loro  per 
provare,  capire,  conoscere,  saDe re , ree iprocamen te . 

Con  la  mia  iniziativa  frutto  del  mio  entusiasmo  sto  assistendo 
sbalordito,  incredulo,  alla  più  grande  rivoluzione  bioculturale 
dell'uomo.  Anni  fa  leogendo  i  grandi  ricercatori  sul  cervello, 
(Granit,  Eccels,  Lashley .Wiener  etc)  si  accennava  ormai  già  con 
una  mappa, al  complicatissimo  intrico  di  circuiti  mnemonici  del 
nostro  cervello  e  alla  struttura  non  rigida  ma  in  continua  tras= 
formazione  e  che  si  ricompone  ogni  volta  in  modo  diverso. 

"Pensare"  sionifica  simulare  stimoli  e  ouindi  modificare  continua3 
mente  con  i  risultati  gli  stessi  stimoli,  senza  sosta  un  continuo 
incrociarsi  di  sterminati  messaggi  chimici  ed  elettrici  attraverso 
i  SI-N0-N0-SI,  onde  di  ritornjo  continue,  modificate.  Esperienze  che 
vanno  aggiungersi  a  quelle  memorizzate  influenzandole  e  modificando 
le  successive  risposte  in  un  ere scendo  continuo.  Questi  scienziati 
dando  per  scontato  un  piccolo  patrimonio  genetico  auspicavano  un 
ambiente  che  iniziasse  questa  reazione  a  catena  imprevedibile. 

Quando  scrivevano  c'erano  solo  pochi  esemplari  di  computer,  non 
potevano  imaginare  che  nell'84  milioni  di  ancora  più  potenti  sareb= 
bero  arrivati  sul  tavolino  di  milioni  di  ragazzi,  e  neanche  imagina= 
rono  che  auesti  vi  avrebbero  messo  dentro  con  una  chiarezza  incredi= 
bile,  con  una  logica  figurativa  immediata  e  attiva  migliaia  di  espe= 
rienze.  I  risultati  li  vediamo  già.  Difficile  spiegare  a  un  ragazzo 
di  1  C/l  2  anni  le  espressioni  logiche  e  relazionali.  Da  solo  invece 
le  capisce  velocemente  e  subito  dopo  le  usa  ouando  le  trova  infilate 
in  un  semplice  proqramma  dove  un  bamboccio  si  deve  muovere.  Stupefa3 
cente  e  incredibile  !!  Subito  dopo  passano  oltre  "  se  ho  fatto  ques= 
to  posso  far  questo  e  dopo  ouesto  e  dopo...."  Fantastico  !!!!!--! 


Se  è  così  in  tutto  il  mondo  (  ed  è  così  )  il  futuro  ci  riserve^ 
ra"  la  messa  in  discussione  di  molte  organizzazioni  sociali,.  eco= 
nomiche,  politiche  •  La  Scuola  prima,  l'industria  poi  (  o  prima?) 
la  politica  per  conseguenza.  Una  crisi  a  catena. 

Molti  ai  vertici  stanno  vedendo  solo  la  punta  di  auesto  fenomeno 
emergente,  io  invece  lo  sto  vivendo  in  prima  persona  e  scusate  la 
presunzione  ne  ho  anche  un  po  anticipato  i  tempi  qui  nella  mia 
città.  Primo  a  metterlo  in  vetrina  (  e  duale  vetrina  !  )  primo 
a  fare  entrare  la  gente  e  a  farlo  provare,  vedere,  utilizzare. 

Il  primo  a  smitizzarlo!  Ricordate  sempre  che  ho  iniziato  dentro 
una  tabaccheria.  A  ragazzini,  Dottori,  Ingegneri,  Professori, 
Avvocati,  Industriali,  Notai,  Scienziati  etc  etc  ho  venduto  loro 
il  primo  computer  spiegandoglielo  e  convincendo  ad  iniziare  con 
esso  l'avventura  del  secolo. 

Venne  poi  il  contatto  con  voi,  le  vostre  10.000  lettere,  le  miglia 
aia  di  telefonate ,  la  Rivista  !  Ora  i  maggiori  dirigenti  delle 
grandi  grandissime  aziende  di  Computer  e  di  case  editrici  venao= 
no  a  trovarmi  per  vedere  e  studiare  nel  mio  piccolo  negozio  il 
fenomeno.  (  Rimangono  frastornati,  increduli  e  toh  mi  danno  del  TU 

Avete  visto  cari  amici  dopo  la  mia  rivista  quante  ora  ne  sono 
uscite  ?  Non  abbiamo  anticipato  i  tempi  anche  in  questo  ? 

Certo  hanno  la  carta  patinata,  i  mille  colori  dei  rotocalchi. 

Manca  ancora .  non  fatemelo  dire.  Lo  sapete  del  resto! 

Perchè  mai  allora  mi  avete  inviato  10.000  lettere  e  ricevute 
10.000  risposte?  Perchè  mai  già  un  centinaio  di  voi  e  venuto 
a  trovarmi  da  Benevento,  Napoli,  Roma,  Ventimiglia  etc  etc  ? 

Perchè  mai  i  migliori  programmi  li  inviate  a  me  e  non  a  Quelle? 

Siamo  e  rimarremo  amici.  Una  grande  famiglia  si  è  formata.  Sempre 
più  grande,  sempre  più  attenta. 

Nello  scorso  numero  vi  avevo  avvertiti  di  tenere  duro.  Novità 
grosse  in  vista*  Non  state  ad  acouistare  trabiccoli  tanto  pubbli= 
cizzati  (  a  proposito  il  nostro  tanto  temibile  concorrente,  no= 
tizia  fresca,  ha  cessato  la  produzione!)  Arriva  fra  poco  il 
fantastico  IBM  PCjr.  Farà  piazza  pulita  di  tutti,  il  vuoto  intorno 
a  se . 

E  per  farvi  capire  che  potete  ancora  contare  su  di  me  e  sul  vostro 
(  ricordate  vostro  )  CLUB  inizio  primo  in  assoluto  in  Italia  a 
pubblicare  programmi  IBM. 

Non  solo, ma  ognuno  di  essi  sarà  in  versione  TI  99*  In-modo  di 
capire  le  differenze  nella  programmazione,  conoscere  il  nuovo, 
imparare  in  fretta  cosa  è  un  grosso  computer. 

Leggete  le  ultime  pagine!  E  conservate  aueste  riviste.  La  prima 
rivista  di  listati  è  stata  in  Italia  la  nostra.  Fatta  in  casa, 
quindi  pionieri.  Il  primo  numero  è  già  un  cimelio.! 

Grazie  ancora  a  tutti.  Se  non  c'eravate  voi  sarei  oggi  uno  sco= 
nosciuto.  GRAZIE  ! 


fl.  TEMPO  RELATIVO 


E>(.S  A51C 


fì  ^  filili  « 


50  REH  FRANCQWPUTER 

51  REH 

100  SEH  CALCOLI  LABORATORIO  FISICA  EX. BASIC 
110  REM  BY  STEFANO  LUISE  ANSI  14 
120  DIN  A fiOfl) 


Un'importante  conseguenza  del  principio  della  relatività  ristretta,  formulata 
da  Einstein  nel  1905,  è  la  non  esistenza  di  un  tempo  assoluto;  non  è  possi¬ 
bile,  cioè,  stabilire  se  due  eventi,  che  avvengono  in  due  punti  differenti,  siano 
o  no  contemporanei.  Immaginiamo,  per  esempio,  due  osservatori  lontani  l'uno 
dall'altro  e  dotati  ciascuno  di  un  orologio.  I  due  orologi  sono  stati  sincroniz¬ 
zati  avvicinandoli  prima  di  questa  esperienza  ideale;  ciascun  osservatore  si 
è  poi  portato  con  sè  il  proprio.  Nel  timore  che,  durante  il  tempo  d'allonta¬ 
namento,  i  due  orologi  si  siano  disaccordati,  i  due  osservatori  li  vogliono  con¬ 
trollare:  si  invia  un  segnale  luminoso  da  un  osservatore  all'altro,  il  quale  lo 
rifletterà  immediatamente.  Si  annota  sia  il  tempo  in  cui  il  segnale  è  stato 
ricevuto  dal  secondo  osservatore  sia  il  momento  in  cui  tale  segnale  è  tornato 
al  primo.  Conoscendo  la  distanza  tra  i  due  osservatori,  è  possibile  accordare 
i  due  orologi. 


130  CALL  CLEAR  ::  CfiLL  CHARÌ120, 

CFEFF101010000000"! 

HO  CALL  SPRITEIE1, 120,2,1, 1,12, 13) 

150  CALL  N0TI0N!£1,0,25) 

160  CALL  HASNIFV 
170  CALL  C0L0R(I2.4.4ì 
180  CALL  HCHAR!3,1,120,32) 

190  FAR  1=1  T0  12 
200  CALL  SQUND5150,-1,4) 

'210  NE2T  I 

220  CALL  HQTI0N(£1,0,0) 

230  DISPLAY  AT!7,4h"SU  QUESTA  ROTAIA1 
240  DISPLAY  A7IS,4} : "SCORRE  UN  (CAVALIERE) I!!" 

250  FAR  1=1  T0  400  ::  NEH  I 

260  DISPLAY  AT(3,4):‘CQN  UN  CR0N0HETR0:1  ::  CALL  CHARU40 
B04020 i 00000020COCOA0908S8404081 02040800600* ) 

270  POR  1=1  T0  500  ::  NEXT  I 

280  CALL  HASNIFYI4)::  CALL  SPRITEIfl, 140,2,96,90! 

290  CALL  H0TI0Ni£i,0,0i 

300  DISPLAY  ATil7,4S EVENGONO  FATTE  DELLE  NISURAZ.IDNI  !!' 

310  FAR  1=1  T0  600  ::  NEH  I 
320  CALL  DELSPRITEIALL! 

330  CALL  CLEAR 

340  DISPLAY  AT{Ì2,6):*Dft  BUESTE  PUOI  RICAVARE:1  ::  POR  I=!  T0  500 
350  CALL  CLEAR 

360  PRINT  "Il  IL  VALORE  MEDIO1 
370  PRINT 

380  PRINT  ’2ì  L'ERRORE  ASSOLUTO  DEL  TEMPO  (DELTA  T.)1 
390  PRINT 

400  PRINT  "3)  L’ACCELLERAZIONE1 


00000003070F1F3F7FFF080808000000000000COECFOF8F 

Se  però  i  due  osservatori  sono  in  moto  traslatorio  uniforme  l'uno  rispetto  al¬ 
l'altro,  nel  tempo  intercorso  tra  l'andata  e  il  ritorno  del  segnale  luminoso,  il 
secondo  osservatore  si  sarà  spostato.  Di  quanto,  tuttavia,  non  lo  possiamo 
sapere  perché,  secondo  il  principio  della  relatività  ristretta,  si  ammette  che 
non  esiste  un  criterio  per  stabilire  in  modo  assoluto  se  un  osservatore  sia 
fermo  o  in  moto  traslatorio  uniforme  nello  spazio.  Ogni  osservatore  ha  dun¬ 
que  un  suo  tempo  proprio,  poiché  può  guardare  il  proprio  orologio,  ma  non 
può  sapere  se  tale  tempo  è  in  accordo  con  quello  di  un  altro  osservatore 
esterno:  esiste  perciò  quello  che  si  chiama  tempo  locale  e  non  esiste  il  tempo 
assoluto.  È  questa  la  relativizzazione  del  concetto  di  tempo. 


■000403020408102020100 


NEH  I 


_ _  PRINT 

410  PRINT  *4)  L'ERRORE  ASSOLATO  DELL’ACCELERAZIONE  (DELTA  A.)1 

420  PRINT  "51  L’ERRORE  RELATIVO  (DELTA  E.!1  ::  PRINT 

430  PRINT  e6ì  PER  FINIRE1  ::  PRINT 

440  F0R  S=0  T0  30  STEP  5 

450  CALL  SDUNB<200, 110, S) 

460  NEXT  S 

470  INPUT  "COSA  SCE6LI  ??  *:X 
430  CALL  SCREENIS! 

490  IF  K=0  OR  Dò  THEN  500  ELSE  520 
500  PRINT  "HA  NON  SAI  NEPPURE  BATTERE  ?  1 
510  STOP 

520  IF  M  THEN  540  ::  IF  1=2  THEN  800  ::  IF  1=3  THEN  930 
530  IF  s=4  THEN  1090  ::  IF  1=5  THEN  1310  ::  IF  1=6  THEN  1520 
540  CALL  CLEAR  ::  DISPLAY  AT(12,9) : "VALORE  MEDIO* 

550  POR  1=1  T0  500  ::  NEXT  I 


PRINT 


560  CALL  CLEftR  PRIMI  "IL  VALORE  MEDIO  FRA  *:'PIO’  (USURE,  E'  QUELLO  FRA  VOI 
ESSE  CHE  SI  V AVVICINA  PIU'  ALLA  REALTÀ’.’ 

570  FOR  1=1  IO  SCO  ::  NESSI  I 
580  FRINÌ  ::  FRINÌ 

590  FRINÌ  'PER  RICAVARLO,  SI  FA  LA  SUNNA  DEI": "VALORI,  DIVISO  IL  NUNERO  DEGLI  SI 
ESSI’ 

6O0  FRINÌ::  FRINÌ  ::  PRINI 
610  FOR  8=9  IO  30  SIEF  5 
620  CALL  SOUND!380,6?e, 6, 1924,8) 

630  NEH  S 

640  INPUT  'SU  QUANTI  VALORI  DESIDERI  IL  CALCOLO  ?  ’il 

650  5F  X<=0  OR  30100  THEN  640 

660  FOR  1=1  TO  3S 

670  FRINÌ  "DATO  NUNERO" il 

680  INPUT  ‘VALORE  ?  ":A(IS 

690  NEH  I 

700  FOR  I=S  TO  l 

710  T=T+A(IS 

720  NEH  I 

730  TREDIA=I/X 

740  FRINÌ 

750  PRINT  “MEDIA  =*iTNEBIA 
760  PRINT  ::  PRINT 

770  INPUT  ‘PER  ALTRE  NEDIE  FRENI  L,  PER  FINIRE  S  *:H* 

7B0  IF  Ht=’L*  THEN  540  ::  IF  H$=“S"  THEN  350 
790  END 

SOO  CALL  CLEAR  ::  DISPLAY  ATL12, 6) : “ERRORE  ASSOLUTO" 

8i0  FOR  1=1  TO  500  ::  NEH  I 

820  CALL  CLEAR  ::  PRINT  “L’ERRORE  ASSOLUTO  (DELTA  TJVNISURA  L’ERRORE  CHE  SI  P 
DO’  FARE”: "IN  UNA  MISURAZIONE* 

030  FOR  1=1  TO  6O0  ::  NEH  I 
840  PRINT  ::  PRINT 

850  PRINT  "LA  RELAZIONE  CHE  SI  USA  E’  :"  ::  PRINT  ::  PRINT  "(VAL.  NAH.  NIN.J/2 


860  INPUT  'VAL.  HAI  ?  ":VN  ::  INPUT  "VAL.  NIN.  ?  *:V! 

870  DT=(VN-VI)/2 

380  PRINT  ::  PRINT  "DELTA  T.  =*iOT 
890  CALL  SQUSD!5O0, 110,0, 131,0, 196,3) 

900  PRINT  ::  INPUT  "PER  ALTRI  DELTA  FRENI  L,  PER  FINIRE  S  ":N4 
910  IF  N$="L*  THEN  SOO  ::  IF  !tt="S“  THEN  350 
920  END 

930  CALL  CLEAR  ::  DISPLAY  AT!12,6!: "ACCELERAZIONE" 

940  FOR  1=1  TO  SOO  ::  NEH  I 

950  CALL  CLEAR  ::  PRINT  "DATA  LA  RELAZIONE  i “ : "SPAZI0=1/2*ACC. *TA2"  ::  PRINT  *L’ 
ACC.  SARA  DATA  DA  :  " 

960  PRINT  ::  PRINT  "ACC.=2*SPAZI0/TA2" 

970  CALL  S0UNDS500, 500, 1,504,2,508,3) 

980  FOR  1=1  TG  700  ::  NEH  I 
990  PRINT 

iOOO  INPUT  "SPAZIO  =  ":S 
1010  INPUT  “TEMPO  =  ":T 
1020  PRINT  ::  AC=2*S/TA2 
1030  PRINT  "ACCELERAZIONE  =';AC 
1040  PRINT  ::  PRINT 

ISSO  INPUT  "PER  ALTRE  ACC.  L,  PER  FINIRE  S  ":N$ 

1060  IF  H$="L"  THEN  930 
1070  IF  R$="S"  THEN  350 
I08C  END 

1090  CALL  CLEAR  ::  DISPLAY  AT !  12, 7S: "DELTA  ACC." 

1SOO  FOR  I=i  TO  500  ::  NEH  I 
1110  CALL  CLEAR 

1120  PRINT  'L’ERRORE  ASSOLUTO  DELL’ ACCELERAI.": "NI  DA  L’ERRORE  CONNESSO  NELVCA 
LCOLO  DI  PIU’  ": "ACCELERAZIONI" 

1130  FOR  S=0  TO  30  STEP  2 

1140  CALL  SOUND ( -50 , 230- ( 4*S I , 30-4 , 23O0- ( 40*S ! , Si 

1150  NEH  S 


a/AkUi  lùbì  ! 


8  REA 

10  REA  SIMULAZIONE  BELL J ATTERRA66 1 0  DI  UN  AEREO  ULTIMATO  IN  DATA  4/2/19 
84  OCCUPAZIONE  HAI  :  7.1  KBYTE  OCCUPAZIONE  MIN  :  8.7  KBYTE 
20  REA  VERSIONE  IN  TI  EITENDED  BASIC  REALIZZATA  DA  :  DAVIDE  ROSSI 

VIA  :PASU8I0  N.  82  C.A.P.  :40133  BOLOGNA 
30  CALL  AAGNIFYI4)::  CALL  CLEAR  ::  CALL  SCREENI5)::  ON  NARNINS  NEIT  ::  ON  BREAK 
NEH 

40  GOTO  70  ::  CALL  CHAR  ::  CALL  COLOR  ::  CALL  SOUND  ::  CALL  SPRITE  ::  CALL  AOTIO 
N  ::  CALL  DISTANCE  ::  CALL  COINC  ::  CALL  KEY  ::  A,B,LG,C,RC,I,Y 
50  Z$,F$, Al, DIF, I  ::  CALL  LOCATE  ::  CALL  PATTERN  ::  CALL  DELSPRITE  ::  CALL  POSIT 
ION  !  DEFINIZIONE  DELLE  VARIABILI  E  DEI  S0TT0PR06RAHNI  USATI 
80  !8P- 

70  REM  DEFINIZIONE  DEI  CARATTERI  £  -,  UK 

80  Z4=RPT$!’0',8i::  F*=RPTJÌ'F’,18)  *  ** 

90  CALL  CHAR!33,F4,42,F$! ISFONDO  CIANO  133)  !  SFONDO  VERDE  SCURO  (42) 

100  CALL  CHAR(98,ZttFttZttZ$iF*) 

1 10  CALL  CHAR (104 , Ztt*071FI 51F020303020303020300008080EOF8A8F3C040COC040COCOCi ! 
120  CALL  CHAR (120, ,003OlSÌC3FlFO7OO"ÌZ«ZU7$L‘FtFF8,LZiì 
130  CALL  CHAR!  124, '0030181C3FlF0705"iZt&Z*iZ$Ì’FCFF8884'ÌZi; 

140  CALL  CHAR!128,Z$l,021F3BOO'iZ4i'OE58E3'liZ$) 


150  FOR  7=0  TO  8  ::  CALL  COLORII, 18,1)!:  NEIT  I  ::  DISPLAY  AT 1 12, 5) : ‘ ATTERRAGGIO 
ASSASSINO' 


180  FOR  A=1  TO  2  ::  FOR  B=0  TO  30  STEP  2  ::  CALL  SOUND ( - 1 0 , 1 1 0 , 30 , 1 1 0 , 30 , 2500, 30 
,-S,B)::  CALL  SOUND  7-10, 110,30,110, 30, 4E3, 30, -8,  B)  :  :  NEIT  S  ::  NEIT  A 
170  CALL  CLEAR  ::  PRINT  'TORRE  DI  CONTROLLO  A  PILOTA':  :  :'BEVI  RIUSCIRE  AD  ATTE 
RRARE':  :  "CON  VELOCITA'  VERT.  =  1":  .-“CON  VELOCITA'  ORIZZ.  =  50' 

ISO  PRINT  :  :'SE  LA  TUA  VELOCITA'  ORIZZON':  : 'TALE  DIVENTA  INFERIORE  A  50‘:  :'PR 

INA  DI  ESSERE  IN  FASE  DI':  : 'ATTERRAGGIO  VAI  IN  STALLO'  ::  GOSUB  780 

190  PRINT  :  :  j “SE  NON  TI  VUOI  SCHIANTARE’:  : 'CHIUDI  EVENTUALMENTE  IL’:  : 'CARREL 

LO  E  PORTA  LA  VELOCITA":  : 'ORIZZONTALE  SOPRA  I  80'  ::  GOSUB  780 

200  PRINT  :  :  :'SE  NON  SEI  SICURO  DI  RIUSCÌ":  :*RE  A  FERMARTI  PRIMA  CHE  LA':  :'P 

ISTA  FINISCA  ASPETTA  CHE  LA' 

210  PRINT  : 'TORRE  DI  CONTROLLO  RAGGIUNGA':  :'IL  LATO  SINISTRO  DEL  VIDEO':  :  :  :' 
POTRAI  TENTARE  L’ATTERRAGGIO':  : 'SULLA  SECONDA  PISTA  DI  CUI" 

220  PRINT  .-'L'AEREOPORTO  DISPONE':  :  :  :  "MA  STA  ATTENTO  A  NON  FALLIRE’:  s'DI  NUO 
VO'  ::  GOSUB  780  ::  CALL  CLEAR 


230  FRINÌ  'USA  I  SE6UENTI  TASTI':  :  A  >  APRE  IL  CARRELLO':  :  :‘<  E  >  DECRE 
HENTA  LA  VELOC.':  :TAE!Bi! 'VERTICALE  DELL'AEREO':  :  :*<  i  >  LA  INCREMENTA” 

240  PRINT  :  :'<  B  >  BECREHENTA  LA  VELOC.':  :TAB(3)i'0RIZZBNT.  DELL'AEREO':  :  :’ 
<  D  >  LA  INCREMENTA’  ::  SOSUB  780 

250  DISPLAY  Alili, DERASE  ALL: 'INSERISCI  IL  COEFFICIENTE  DI':  : ‘DIFFICOLTA’  DESI 
DERATO":  :  "DIFFICOLTA’  (1-31  :*  ::  ACCEPT  AT!15,28)VALIDATEC123'Ì:BIF 
260  Ai=i  INUMERÒ  DELLA  PISTA  SU  CUI  SI  TENTA  L’ATTERRASSIO 
270  REN  INIZIALIZZAZIONI  A  ;  VELOCITA’  VERTICALE  DELL’AEREO  ;  B  : VELOCITA’  D 
RIZZONTALE  DELL'AEREO  !  L6=i  :SI  E’  APERTO  IL  CARRELLO 
280  A,LS=0  ::  B=-75  ::  CALL  CLEAR  ::  CALE  SCREEN(2i 
290  CALL  COLORII, 8, 1,2, 13, li::  FOR  1=1  TO  là  ::  CALL  HCHARCX, 1,33,32) :  :  NEIT  I  : 
:  FOR  1=17  TO  20  ::  CALL  NOMIMI,  1,42,32!::  NEH  I 
300  DISPLAY  AT (1,10! /PISTA  NUMERO  :  *;A1  ::  DISPLAY  ATÌ3, 10): 'VELOC.  VERT. 
DISPLAY  AT(5, 10): ‘VELOC.  ORIZZ.  :‘ 

310  CALL  SPRITE(£1,96,16,180,256,O,B!!B£FINIZIOHE  DELLO  SPRITE  CHE  DELINEA  LA  Zfl 
NA  CENTRALE  DELLA  PISTA  DI  ATTERRASSIO 

320  CALL  SPRITE (£2, 120, 7, 10, 1 , A, 0) !  DEFINIZIONE  DELLO  SPRITE  DELL’AEREO  CON  CARRÉ 
LLO  CHIUSO 

330  CALL  SPRITEIE3, 104,2, 110,256,0,-DIF-l) 1DEFINIZI0NE  DELLO  SPRITE  DELLA  TORRE 
DI  CONTROLLO 

340  FOR  X=1  TO  40  ::  CALL  LOCATE (£2,10,1!::  NEIT  I  IPOSIZIONAHENTO  DELL’AEREO  IN 
OUOTA 

350  SOSUB  450  ::  SOSUB  420 

360  CALL  HQTI0N(£i,0,8,£2,A,0!::  CALL  C0INC(£2, 170, 40,9,1!::  CALL  P0SITI0N(£3,I, 
Y) 

370  CALL  CQINC!£2, 240, 40,16,0::  IF  C=-l  THEN  A=i  ::  CALL  N0TI0N(£2,A,0)::  SOSUB 
420  ::  BOTO  360 

380  IF  Y(=8  OR  Y>=248  THEN  500  ELSE  IF  KM  THEN  350  ELSE  CALL  H0TI0Ni£2,0,Oh: 
IF  A<=1  THEN  IF  LB=0  THEN  àOO  ELSE  640 

390  DISPLAY  AT(7,3ÌSIZE(25):‘LA  VELOCITA’  VERTICALE  E”  ::  DISPLAY  AT(9,10)SIZE( 
11): 'TROPPO  ALTA' 

400  DISPLAY  AT (1 1 , 3) SI ZE (25) : "MUORI  SULLA  PISTA  INORATA'  ::  BOTO  600 
410  INABE  £££ 

420  DISPLAY  AT(3,26):USIN6  410:A  ÌSTANPA  DELLA  VELOCITA’  VERTICALE 

430  DISPLAY  AT(5,26):USIN6  410:-B-!B=1)::  RETURN  'STAMPA  DELA  VELOCITA’  VELOCITA 

’  ORIZZONTALE 

440  REN  CONTROLLO  DELL’AEREO 

450  CALL  KEY(1,Y,Y)::  IF  1=1  AND  L6=C  THEN  CALL  PATTERN(£2,124!::  A=A+3  ::  8=8+2 

0  ::  LS=!  ::  BOTO  470  IAPERTURA  DEL  CARRELLO 

460  BOSUB  820  ::  IF  1=0  AND  Y=0  THEN  RETURN  ELSE  A=A-Y/4  ::  B=B+X/4 

470  IF  A<-5  OR  A>10  THEN  A=A-S6N!A! 

480  IF  8>-50  THEN  550  ELSE  RETURN 

490  REN  SI  E’  FALLITO  L’ATTERRABBIG  SULLA  PISTA  1  E  SI  TENTA  SUELLO  SULLA  PISTA 

n 

L 

500  CALL  CLEAR  ::  A1=A1+1  ::  IF  Ai=2  THEN  CALL  NQTI0N(£2,0,0i::  CALL  P0SITI0Ni£2 
, X, Y) :  :  CALL  PATTERN(£2,120ÌELSE  530 

510  CALL  DELSPRITEi£l,£3)::  DISPLAY  AT(6,1Ì:‘HAI  FALLITO  L’ ATTERRASSIO":  : "SULLA 
PISTA  NUMERO  1':  :  : "TENTA  SULLA  SECONDA  PISTA':  :  :*E’  LA  TUA  ULTIMA  POSSIBI 
LITA' 

520  FOR  C=Y  TO  255  ::  CALL  L0CATE(£2,INT(I+.9!,C)::  I=I-0/(255-Y)!::  NEXT  C  ;: 
Al=2  ::  SOTO  270 

530  SOSUB  800  ::  DISPLAY  AT(10.3!:'MA  QUANTE  PISTE  TI  SERVONO1:  :  :  :TAB(B!:‘PER 
ATTERRARE  ??'  ::  SOSUB  790  ::  CALL  CLEAR  ::  SOTO  730 
540  REM  L’AEREO  E’  IN  STALLO 

550  CALL  CANC!7,1)::  DISPLAY  AT(7,12)BEEP  3IZEI15) : ‘AEREO  IN  STALLO’  ::  CALL  MOT 
I0N(£2,0,0)::  CALL  P0SITI0N(£2, I, X) 

560  CALL  LOCATE  (£2,1,40)  :  :  CALL  COINC  (£2, 170, 40, 2,  X  i  :  :  CALL  COINC(£3,UO,1,9,Y): 
:  IF  Y=-l  THEN  500  ELSE  IF  )!=-l  THEN  600  ELSE  1=1+4 
570  CALL  KEY  U ,X, Y> :  :  IF  1=1  AND  LB=1  THEN  CALL  PATTERN (£2, 120)::  A=A-3  ::  8=8-2 
2  ::  LS=0  ELSE  SOSUB  820  ::  B=B+X/4 

580  IF  8<-60  THEN  CALL  CANC(7,1)::  RETURN  ELSE  CALL  M0TI0N!£1,0,B!::  SOSUB  430  : 
:  BOTO  560 

590  REM  DISTRUZIONE  DELL’AEREO 

600  CALL  M0TI0N!£l,0,0,£2,0,0,£3,0,0ì::  CALL  SOUND !1E3, -7,0) 

610  FOR  1=1  TO  10  ::  CALL  SCREEN(là)::  CALL  SCREENÌ2)::  NEH  ì 
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1 0  0 

CfìLL 

CLEflR 

110 

PRINT 

" ORGUE  fì  MEMO IRE" 

120 

DEF  H 

(N>  =INT  (  (964-N 

) /3 1  +  0 

.5) 

130 

DIM  fì 

<5?  32)  ?  C  (90) 

140 

CfìLL 

CHflR ( 1 28 ? "0004 04 04 1C 

3C3 

CI  8” 

.* 

150 

DATA 

330? 277? 247? 37 

0  ?  622  ? 

392 

*415 

ìi  440? 

83 1  ?  466  ?  494  ?  58 

3  ?  3 1 1  ? 

294 

?  88 0  > 932  j 

554  ?  659  ?  349?  69 

8 ?  784  ? 

262 

?  587  ?  233 ? 

740?  220 

160 

FOR  I 

=1  TO  26 

170 

READ 

C  < I +64) 

130 

NEXT 

I 

190 

M=1 

2  0  0 

REM 

210 

N=  0 

220 

CfìLL 

SDUND  (400?  440? 

5) 

230 

CfìLL 

KEY (4  ?  T  ?  NOUV) 

240 

IF  NOUV  =  0  THEN  230 

250 

IF  T < 

:>48  THEN  320 

260 

CfìLL 

HCHflR  (H  (fl  (M?  N> 

)  ?  N?  3c 

;) 

270 

N=N- 1 

28  0 

FOR  DEL=1  TO  50 

290 

NEXT 

DEL 

3  0  0 

GOTO 

230 

310 

REM 

320 

IF  T- 

032  THEN  370 

OftfcAfc IO  SOL  i\ 


52 


330  N=N+1 

340  fì(M?  N>  =40000 

350  CfiLL  HCHflR  (2 1  ?  N  ?  95) 

360  GQTQ  430 

370  IF  T  <65  THEN  230 

330  IF  T>90  THEN  230 

390  N=N+ 1 

400  fì(M?N>  =C(T> 

4 1  0  CfìLL  HCHflR  (H  (fì  (M  ?  N)  >  ?  N  ?  1 28) 

42  0  CFILL  SOUND  (3  0  0  ?  fl  (M  ?  N>  ?  5> 

430  IF  N <3 0  THEN  230 

440  IF  M=5  THEN  520 

450  INPUT  "flUTRE  MDUVEMENT  (O-'N:: 

"  •  p;J; 

460  IF  RS="N"  THEN  520 

470  IF  RSO  "0"  THEN  450 

430  H=H+ 1 

490  CFILL  CLEflR 

500  GOTO  210 

510  REM 


5) 


'  :  VDL 


0  INPUT  "ECDUTE  MDUVEMENT (S>  ( 
Q/N) ?  " : Rì 

530  IF  RS="N"  THEN  720 
540  IF  RSO  "O"  THEN  520 
550  INPUT  "DUREE  DE  CHFlQUE  NOTE 
(SEC . >  DUREE 
560  DUREE=DUREE*86 0 
570  INPUT  "VOLUME  (1  fl 
530  V0L=7-VDL 
590  REM 

600  FDR  F-l  TD  M 

610  CFILL  CLEflR 

620  FDR  N=1  TD  30 

f, 30  IF  fì(P»N)  =40000  THEN  650 

640  CFILL  HCHflR  <H  (fi  <P»  N)  >  iNr  128) 
650  CfìLL  SOUND  (DUREE  ?  Fi  (P  >  N>  »  VDL) 
660  NEXT  N 
670  NEXT  P 
680  REM 

690  INPUT  "ENCORE  (O/N)?  ":R$ 
700  IF  R$="D"  THEN  530 
710  IF  RSO "N"  THEN  690 
720  STOP 


r2^ 

3\ 

/O 

\ 

h 

1 

2 

i 

ì 

H 

N 

i 

H 

"fi 

2 

i 

o' 

>4 

£ 

T 

1 

5  CALL  CLEAR 

10  A$  =  “FFFFFFFFFFFFFFFF” 

20  B$  =  “0000000000000000” 

30  CALL  CHAR(34,A$) 

40  CALL  CHAR(33,B$) 

50  CALL  COLOR(1, 12, 2) 

60  FOR  K  =  1  TO  4 

70  Y  =  5 

80  FOR  1=1  TO  16 
90  READ  N 
100  N  =  INT(N/2) 

110X1  =  1 

120  FOR  J=  1  TON 

130  READ  X2 

140  CALL  HCHAR(Y,X1  +3,33,X2-X1  ) 
150X1  =  X2 
160  READ  X2 

170  CALL  HCHAR(Y,X1  +3,34,X2-X1  ) 
180X1  =  X2 
190NEXTJ 
200X1  =  X2 

210CALL  HCHAR(Y,X1  +3,33,15-X1) 

220  Y  =  Y  4-  1 

230  NEXT  I 

240  NEXT  K 

250  RESTORE 

260  GOTO  60 

270  REM  NUMBERONE 

300  DATA  3, 1 0, 1 2, 5,3.5, 1 0, 1 3 

310  DATA  5, 1,5, 10, 14, 7, 1,6, 7, 8, 9, 14 
320  DATA  3, 1,14, 3, 1,14, 3, 1,14 
330  DATA  3,1,14,3,2,13,3,3,12 
340  DATA  7,1,6,7,8,9,14,7,1,6,7,8,9,14 
350  DATA  7,1,6,7,8,9,14,5,1,6,9,14 
360  DATA  5,3,5,10,13,5,3,5,1 1 ,13 
370  REM  NUMBER2 
380  DATA  5,4,5,10,1 1,5,3.5,10,12 
390  DATA  5,2,5,10,13,7,2,6,7,8,9,13 
400  DATA  3.2.13,3,2,13,3,2,13,3,2,13 
410  DATA  3,3, 1 2,3,4, 1 2, 7.2, 6, 7, 8, 9, 1 3 
420  DATA  5.2,6,9,13,5,2,6,9,13,5,2,6,9,13 
430  DATA  5.3.5,10,12.5,3,5,1 1,12 
440  REM  NUMBER  3 


450  DATA  5.4.5.10,1 1,5,3.5,10,12 

460  DATA  5.3.5,10,12,7,3,6,7,8,9,12 

470  DATA  3.3,12,3,3,12,3.3,12,3,3,12,3,4,1 1 ,3,3,12 

480  DATA  7.3.6.7,8,9.12,5,3,6,9,12,5,3,6,9,12 

490  DATA  5.3,6,9,12,5,4,5,10,1 1 ,5.4,5,10,1 1 

500  REM  NUMBER  2 

510  DATA  5.4.5.10,1 1 ,5,3,5,10,12 

520  DATA  5.2.5,10,13,7,2,6,7,8,9,13 

530  DATA  3.2.1 3,3,2, 1 3,3,2, 1 3,3,2, 1 3 

540  DATA  3.3,12,3,4,12,7,2,6,7,8,9,13 
550  DATA  5,2,6,9,13,5,2,6,9,13,5,2,6,9,13 
560  DATA  5, 3, 5, 10, 12, 5, 3, 5, 11, 12 


100  CALL  CLEAR 
1 10  A$  =  “38381 0387CBA386C” 
120  B$  =  “3838927C3838FE00" 
1 30  C$  =  “0000000000000000” 
140  CALL  CHAR(33,A$) 

150  CALL  CHAR(34,B$) 

160  CALL  CHAR(35,C$) 

170  FOR  I  =  3  TO  27 
180  CALL  HCHAR(1 0,1,33) 

190  CALL  HCHAR(1 0,1,34) 

200  CALL  HCHAR(1 0,1,35) 

210  NEXT  I 
220  GOTO  140 


_ „  Q Pllòfifc 

J 1 85  FOR  J=  1  TO  250 
f  186  NEXT  J 
\  1 95  FOR  J  =  1  TO  250 
\ 196 NEXT J 
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200  RER  FRANC0HPUTER 

201  REH 

202  RESI  PRESENTA 

203  REH 

204  REH  IL  SIOCO  DEL’ ANNO 

205  REH 

206  REH  JUNGLE  JIH 

207  REH 

203  REH  NELL’ ATTRAVERSARE  IL  LAGO  DOVETE  CON  IL  BRACCIO  SINISTRO  DI  JIH  A66ANSIA 
RVI  NELLA  LIANA.  NON  E’  FACILE1!! 

220  RAHBGHIZE 

230  DEF  RRNDiNì-INTiRNDiNHl 
240  TIHE=1 


EX  .  A  ASIC 


250  GOSUB  ?60 

260  IF  T INEOI  THEN  GOSUB  1120 

270  DISPLAY  ATU,l!SIZE!LENfSTR$(SC)Hl>:SC  ::  DISPLAY  AT(2,l)SIZEt-2):GUY  ::  CA 
LL  VDHAR II j 3, 335  :  :  CALL  VCHARI2, 3,33) 
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lOO  CALI  CLEAR 
110  RET=0 

120  Ut^FRANCONPUTER  PRESENTA' 

130  RI =6 
140  00=7 
150  60SUS  250 
140  U*=3IL  TUBOLARID* 

170  RI=10 

ieo  co=io 

190  SOSUB  250 

20O  U$='ovvero  le  frasi  del  tubo' 

210  RI=!4 
220  00=4 
230  SOSUB  250 
240  BOTO  310 
25fl  FOR  KK=1  TO  LENiUf) 

240  CALI  HCHAR  ! R I ,  CB+KK ,  ASC  ! SESt  ( Ut ,  ICK,  1 1  !  ! 

270  IF  ASC!SE6$iUt,KK, 1)1=32  THEN  290 
230  CALI  SBUMH10, 1500,0) 

290  NEH  Kit 
300  RETURN 
310  FOR  00=0  TO  20 
320  BANDONI ZE 
330  MT!RND*700Ì+110 
340  DALL  SOUND  f 1 OO , HH , 0 , HH+ 1 00 , 4 , HH+4 0 , 2  > 

350  NEXT  00 
340  CALL  CLEAR 

370  PRINT  'Ciao  gente, lo  sapete  che  si  sono  dato  alla  politica  , 

330  CALL  SOUND (200, 1000, 0,500, 4!  f 

390  FOR  K=1  TO  900 
400  NEH  K 

410  PRINT  'Non  ci  credete  ?  Provate  à  presere  un  tasto':::: 

420  PRINT  ::'P.S,  se  vi  stancate  presete  N  e  io  saetto, ciao" 

430  CALL  SOUNS 1 300 .500,4,1000,0) 

440  CALL  K£YiO,K,S! 

450  IF  S=0  THEN  440 
440  CALL  CLEAR 

47C  PRINT  "Silenzio  sto  pensando"::: 

430  FOR  N=1  TO  20 
490  CALL  S0UND'40,220,3,-5,0Ì 
500  CALL  S0UNDS40,220,8,-5,5) 

SSO  NEH  N 
520  CALL  CLEAR 
530  CALL  SCREEN(S) 

540  FOR  PP=1  TO  14 
55C  CALL  COLOR (PP, 2,85 
540  NEH  PP 

570  DIN  At ! IO) , Bt ( 10S , Ci ( IO) , Dt ! 101 ,Ef  SIO! ,FFt ! IO! , St ! IDI 
530  RANDOHIZE 
590  RESTORE  440 
400  ì=INT!RND*ifi!+i 
410  FOR  K=1  TO  JS 
420  READ  AtiH 
430  NEH  K 

440  DATA  L'utenza  potenziale, il  bisogno  esercente, il  quadro  nor*ativo,L!indicazi 
one  della  base 

450  DATA  II  nuovo  soggetto  sociale, L’approccio  prograssato, L’assetto  politico  is 
tituzio  naie 

440  DATA  II  criterio  setodologico,!!  sodello  di  sviluppo, Il  setodo  partecipativo 
470  RESTORE  720 
430  Y=INT(RND*10Hi 
4?0  FOR  T-l  TO  Y 


700  READ  BtiY) 


720  DATA  auspica. si  caratteri  zza  per, privi leggia, prefigura, riconduce  a  sintesi, p 
ersegue, estrinseca. si  propone 
730  DATA  presuppone, porta  avanti 
740  Z=INTMii&Hl" 

750  RESTOSE  799 
m  POR  8=1  T0  2 
770  READ  Ci  il! 

780  «EH  S 

790  DATA  la  puntuale  corrispondenza  fra  obbiettivi  e  risorse, la  verifica  critic 
a  degli  obbiettivi  istituzionali 

800  DATA  il  riorientaiento  delle  linee  di  tendenza  in  atto.il  decentraiento 
delle  funzioni  decisionali 

810  DATA  la  ricognizione  del  bisogno  elargente  e, la  riconversione  ed  artico-  laz 
ione  periferica  dei  servizi 

820  DATA  un  coretto  rapporto  fra  struttura  e  sovrastruttura, il  ribaltaaento 


della  logica  preesistente 

830 

DATA  il  5upera*ento  di  ogni 

oste¬ 

0 

interdisciplinare 

840 

REST0RE  890 

850 

A=!NT!RND*101+1 

849 

F0R  R=i  T0  8 

870 

READ  Di (81 

880 

NEH  R 

890 

DATA  nel  prisario  interesse 

rie!  i. 

1020 

DATA  evidenziando 

ed  ! 

1030 

RESTARE  1030 

1040 

AE=INT!RND*10)+1 

1050 

F0R  R=!  T0  AB 

1040 

READ  FFiiABS 

1070 

SEST  R 

1030 

DATA  in  un  asbito 

ten 

ella 

nomati-  va  esistente 

1090 

DATA  nel  contesto 

di  ! 

le  e 

condizionante 

1100 

DATA  nella  si  sur a 
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delle  prestazioni 

900  DATA  al  di  sopra  di  interessi  e  pressioni  di  parte, secondo  un  sodalo  di  int 
er-  dipendenza  orizzontale 

910  DATA  in  una  visione  organica  e  ricondotta  a  unita’, con  criteri  non  dirigis 
tici 

920  DATA  al  di  la’dei le  contradizioni  e  dif f icolta’ iniziai i , in  laniera  articolat 
a  e  non  total iz ante 

930  DATA  attraverso  i  leccanissi  della  partecipazione, senza  precostituzione 

delle  risposte 

940  REST0RE  990 

950  AA=INT<RND*19)+1 

960  F0R  R=1  T0  AA 

970  READ  EiiAAi 

980  !OT  R 

990  DATA  attivando  ed  iiplesentando, sostanziando  e  vitalizzando, recuperando  ovve 
ro  rivalu-tando 

1000  DATA  ipotizzando  e  per seguendo, non  assusendo  sai  cose  iiplicito,fattualizan 
do  e  concretiz-zando 

1010  DATA  non  sottacendo  sa  anzi  puntualizzando, potenziando  ed  incresentand 
o,non  dando  certo  per  scontato 


3y310/\  IH)  1V210-ÌN 
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1110  DATA  in  tersini  di  efficacia  e  di  efficenza,a  sonte  e  a  valle  della  situaci 
one  conti  gente 

H20  DATA  nei  tespi  brevi  anzi  brevis-sisi ,in  un  ottica  a  priori  e  non  a  posteri 
ori 

1130  RESTOSE  USO 
1140  AC=1NT»10H1 
1150  FGR  8=1  T0  AC 
USO  READ  Sii ACì 
1170  NEH  R 


.  ul  cu 
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100  CALL  CLEAR 

110  PRINT  "FRANCOMPUTER" 

1.20  PRINT 

121  PRINT 

122  PRINT 
130  PRINT 
140  PRINT 

150  PRINT 

151  PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


IH.  BAMC 


'PRESENTA" 


'BATTLE  STAR" 


PER  COLPIRE  LE ASTRONAVI 
AL  COORDINAMENTO." 


152 
160 
161 
162 

170  PRINT  "USA  LE  FRECCE 
ENZI ONE  ALLA  RAPIDITÀ'  E 
ISO  FOR  WAIT=0  TO  1300 
190  NEXT  WAIT 
200  REM  *************** 

210  REM  *  * 

220  REM  *  BATTLE  STAR  * 

230  REM  *  * 

240  REM  *************** 

250  REM  FRANCOMPUTER 
260  REM  99' ER  VERSION  1.6. 1XB 
270  RANDQMIZE 
230  DIR=Ì  ::  CALL  CLEAR 
290  CALL  COLOR (9, 7, 1) 

300  CALL  CHAR (96, "0000000000070707" ) : 
3 1 0  CALL  CHAR ( 93 , " OOOOOOOOOOEOEOEO " ) : 
320  CALL  CHAR ( 104, "Ì3423C99993C4218") 
CHAR (102, "070707") 

330  CALL  CHAR (107, " 104623240A923044" ) 
340  CALL  CHARI 1 03 , "99DBFF7E3C 131818") 
350  CALL  CHAR (112," 30787C477C7830 " ) 
360  '  CALL  CHAR ( 1 1 4 , " OC 1 E3EE23E 1 EOC " ) 
370  CALL  CHAR (116, " 101038FE381010" ) 
CALL  CHAR (105, "1818181818181818") 


CHE  VOGLIONO  ATTACCARTI .  FAI  ATT 


CALL  COLOR (10,6,1)::  CALL  SCREEN(2) 

CALL  CHAR ( 97  ,"18181 33C7EFFDB99 " ) 
CALL  CHAR (99, "070E1CFFFF1C0E07" ) 
CALL  CHAR (101," E07038FFFF3870E0 1 


CALL 


380 

390 

400 

410 

420 

430 

440' 

450 

460 

470 

0) 


FOR  CGL=1  TO 
L=10Q  ::  S=5 
GOSUB  450 
GOSUB  490  :: 
L=L-, 5  ::  IF 


12 


:  CALL  CHAR ( 1 00 , " EOEOEO " ) 

CALL  CHAR (113," 1010386CEEEE7C" ) 
CALL  CHAR (115," 007CEEEE6C38 1 0 1 0 " ) 
CALL  CHAR (117," 0000 1 83CFF7E2442 " ) 
:  CALL  CHAR ( 1 06 , " OOOOOOFFFF " ) 

::  CALL  COLOR (COL, 16, 1 ): :  NEXT  COL 

SC=0  ::  SAI , SB1 , SA2, SB2, SA3, SB3, SA4, SB4=0  ::  T=0 


GOSUB  750 
L<  1  THEN  L=1 

DISPLAY  AT (24,3) : SC  :  ;  GOTO  420 
CALL  SF'RITE  (£10,96,  16,81 , 1 13, 0, 0,  £1 1 , 97,  16,31, 121, 0,0,  £12, 98, 16,81,129,0,0) 
CALL  SPRITE (£13, 99, 16,89,  113, 0,0, £14, 104,7,89, 121,0,0, £15, 101, 16,89, 129,0,0) 
CALL  SPRITE (£16, 102, 16, 97, 1 13, 0, 0, £17, 103, 16,97, 121, 0,0, £18, 100, 16,97, 129,0, 


IF  S=0  THEN  RETURN 


480 

RETURN 

490 

CALL  KEY 

'  (  0 ,  K , 

S)  : , 

500 

IF 

K=69 

THEN 

550 

510 

IF 

K=83 

THEN 

600 

520 

IF 

K=88 

THEN 

650 

530 

IF 

K=68 

THEN 

700 

540 

RETURN 

550 

IF 

SA  1=0 

AND 

SB1  = 

L  VCHAR(1, 16,32, 10) 

560  IF  SB 1 =0  THEN  CALL 


THEN 

SC-8C- 


CALL. 
■10  :  ; 


VCHAR ( 1 , 
RETURN 


16, 105, 10) ;  :  CALL  SOUND ( lo, 800, 0) :  :  CAL 


VCHAR (2,16,105,9)::  CALL  SOUND ( 500 ,110,2,- 


AR (2, 16,32,9) :  :  SC=SC+50  ::  SAI =0  ::  RETURN 

570  CALL  POS ITI ON ( £ 1 , P 1 , P2 ) :  :  IF  PI >76  THEN  940 

580  P1=INT (Pi /8) +1  ::  CALL  VCHAR (PI , 16, 105, Ì0-P1 ): :  CALL  SOUND C 

:  CALL  VCHAR (PI, 16,32, IO-PI) 

590  CALL  DELSF'R  I  TE  (  £  1  )  :  :  SO=SC+20  ::  SB1=0  ::  RETURN 


00,110, 


CALL  VCH 


10, -5, 8) 


600  IF  SA2=0  AND  SB2=0  THEN  CALL  HCHAR ( 12, 1 , 106,14) :  :  CALE  SOUND (10, 800, 0) :  :  CAL 
L  HCHAR (12, 1,32, 14)  :  :  SC=SC-10  ::  RETURN 

610  IF  SB2=0  THEN  CALL  HCHAR ( 12, 3, 106, 12) :  :  CALL  SOUND (500, 1 10, 2, -5, 2) ::  CALL  HC 
HAR (12,3, 32, 12) :  :  SC=SC+50  ::  SA2=0  ::  RETURN 
620  CALL  F'QS I T I ON  ( £2 ,  P 1 ,  P2 )  :  :  IF  F'2>86  THEN  940 

630  P2=INT (P2/8) +1  ::  CALL  HCHAR ( 12, P2, 106, 15-P2) :  :  CALL  SOUND (200, 1 10, 10, -5, 8) : 

:  CALL  HCHAR ( 12, P2, 32, 15-P2) 

640  CALL  DELSPRITE (£2) :  :  SC=SC+20  ::  SB2=0  ::  RETURN 

650  IF  SA3=0  AND  SB3=0  THEN  CALL  VCHAR ( 14, 16, 105, 10) :  :  CALL  SOUND ( 10, 800,0) :  :  CA 
LL  VCHAR (14, 16,32, 10) :  :  SC=SC-10  ::  RETURN 

660  IF  SB3=0  THEN  CALL  VCHAR ( 14, 16, 105, 10) :  :  CALL  SOUND (500, 1 10, 2, -5, 2) :  :  CALL  V 
CHAR(14, 16,32, 10)::  SC=SC+50  ::  RETURN 

670  CALL  POS I T I ON ( £3 ,  P 1 ,  P2 )  :  :  IF  PK110  AND  P1>0  THEN  940 

680  P1=INT  (F'l/8)  +1  ::  CALL  VCHAR  (  14,  16,  105,  PI -14)  :  :  CALL  SOUND  (200,  1 10,  10,  -5, 8)  : 

:  CALL  VCHAR(14, 16,32, Pl-14) 

690  CALL  DELSPRITE (£3) :  :  SC=SC+20  ::  SB3=0  ::  RETURN 

700  IF  SA4=0  AND  SB4=0  THEN  CALL  HCHAR ( 12, 18, 106, 14) :  :  CALL  SOUND ( 10, 800, 0) :  :  CA 
LL  HCHAR (12, 18,32, 14) :  :  SC=SC-10  ::  RETURN 

710  IF  SB4=0  THEN  CALL  HCHAR ( 12, 18, 106, 13) :  :  CALL  SOUND (500, 1 10, 2, -5, 2) :  :  CALL  H 

CHAR(12, 18,32, 13) :  :  SC=SC+50  ::  SA4=0  ::  RETURN 

720  CALL  POSITION (£4, PI , P2) :  :  IF  P8<142  AND  P8>0  THEN  940 

730  F'2=1NT (P2/8) :  :  CALL  HCHAR ( 12, 18, 106, P2-15) :  :  CALL  SOUND (200, 1 10, 10, -5, 8) :  :  C 
ALL  HCHAR (12, 18,32, P2-15) 

740  CALL  DELSPRITE (£4) :  :  SC=SC+20  ::  SB4=0  ::  RETURN 

750  IF  SB1=0  THEN  P1,F'2=0  ::  GOTO  760  ELSE  CALL  POSITION (£1 , F'1 , P2) 

760  IF  SB2=0  THEN  P3,P4=0  ::  GOTO  770  ELSE  CALL  POSITION (£2, P3, P4) 

770  IF  SB3=0  THEN  P5,F‘6=0  ::  GOTO  780  ELSE  CALL  POSITION (£3,  P5, P6) 

780  IF  SB4=0  THEN  P7,P8=Ù  ::  GOTO  790  ELSE  CALL  POSITION (£4, F'7, F'8) 

790  IF  PI  >76  OR  F‘4>86  0R(P5<110  AND  P5>0>  OR  (P8<  142  AND  F'8 >0)  THEN  940 

800  N3=INT (RND*L) :  :  IF  NS>10  THEN  RETURN 

810  NS=INT (RND*4) +1  ::  ON  NS  GOTO  830,860,890,920 

820  IF  SA 1=1  AND  SB1=1  THEN  RETURN 

830  CALL  HCHAR (2, 16, 115) :  :  SA1  =  1  ::  IF  L<80  AND  SB1=0  THEN  CALL  SPRITE (£1 , 1 16, 7, 
17, 120, 11— (L/10) ,0) s :  SB1=1 
840  RETURN 

850  IF  SA2=1  AND  SB2=2  THEN  RETURN 

860  CALL  HCHAR (12, 3, 112)::  SA2=1  ::  IF  L<80  AND  SB2=0  THEN  CALL  SF'RITE (£2, 1 16, 7, 
88, 17,0, 1 1- (L/ 10) )::  SB2=1 
870  RETURN 

880  IF  SA3= 1  AND  SB3=1  THEN  RETURN 

890  CALL  HCHAR  (23, 16,  113)  :  :  SA3=1  ::  IF  L<80  AND  SB3=0  THEN  CALL  SF'RITE  (£3,  1 16, 7 
, 175, 120, -1 1+ (L/ 10) ,0): :  SB3=1 
900  REI URN 

9-10  IF  SA4=1  AND  SB4=1  THEN  RETURN 

920  CALL  HCHAR (12, 30, 114)::  SA4=1  ::  IF  LCSG  AND  SB4=0  THEN  CALL  SF'RITE (£4, 1 16, 7 
, 88, 216,0, -11+(L/10))::  SB4=1 
930  RETURN 

940  CALL  DELSPRITE (£1 , £2, £3, £4) :  :  CALL  SOUND (2000, 1 10, 2, 220, 2, 1000, 30, -4, 2) 

950  FQR  BUB=10  TO  18  :  :  CALL  MQTIQN (£BUB, INT (RND*40) -20, INT <RND*40) -20) :  :  CALL  P 
ATTERN(£BUB, 107) :  :  NEXT  BUB 

960  CALL  SOUND ( 1 000 , 1 1 0, 2, 220 , 2 , 1 1 0 , 2 , -5 , 2 ) :  :  CALL  SOUND ( 1 , 40000 , 30 ) 

970  CALL  DELSPRITE (ALL)::  CALL  CLEAR 

980  DISPLAY  AT ( 12, 7) : "FATTO  PUNTI  " : TAB ( 10) ; SC 

990  CALL  DELSPRITE (ALL) 

1000  DISPLAY  AT (22, 1 ) : "VUOI  GIOCARE  ANCORA  ?(Y/N)." 

1010  ACCEPT  AT (23, 8) VALIDATE ( "YN" ) : ANS$  ::  IF  ANS$="N"  THEN  1050 

1020  CALL  CLEAR  ::  GOSUB  450  ::  SC=0  ::  L=100 

1030  SB1 ,  SB2,  SB3,  SB4,  PI ,  P2,  P3,  F'4,  P5,  P6,  P7,  P8=0 

1040  RETURN 

1050  END 


100  CALL  CLEAR  «hmmm 
110  CALL  SCREEN (14) 

120  PRINT  "  1  Inno  Alla 

130  V=3 
140  A=200 
150  C=300 
160  E=400 
170  D=500 
180  F-50 
190  K=40000 


200 

REM 

*****  PRIMA 

***** 

210 

CALL 

SOUND (250, K, 

V) 

220 

CALL 

SOUND (C, 440, 

V) 

230 

CALL 

SOUND (P,K,V> 

240 

CALL 

SOUND (C, 440, 

V) 

250 

CALL 

SOUND  (F',K,V) 

260 

CALL 

SOUND (C, 466, 

V) 

270 

CALL 

SOUND <P,K,V) 

280 

CALL 

SOUND (C, 523, 

V) 

290 

CALL 

SOUND (P,K,V) 

300 

CALL 

SOUND (C, 523, 

V) 

310 

CALL 

SOUND (P,K,V) 

320 

CALL 

SOUND (C, 466, 

V) 

- j  ó  0 

CALL 

SOUND (P,K,V> 

340 

CALL 

SOUND (C, 440, 

V) 

350 

CALL 

SOUND <P,K,V) 

360 

CALL 

SOUND <C, 392, 

V) 

370 

CALL 

SOUND  (F'i  K,  V) 

380 

CALL 

SOUND (C, 349, 

V) 

390 

CALL 

SOUND (P,K,V) 

400 

CALL 

SOUND (C, 349, 

V) 

410 

CALL 

SOUND (P,K, V) 

420 

CALL 

SOUND (C, 392, 

V) 

430 

CALL 

SOUND <P,K,V> 

440 

CALL 

SOUND (C, 440, 

V) 

450 

CALL 

SOUND (P,K, V) 

460 

CALL 

SOUND (E, 440, 

0) 

470 

CALL 

SOUND (75, K, V) 

480 

CALL 

SOUND (A, 392, 

V) 

490 

CALL 

SOUND (P,K, V) 

500 

CALL 

SOUND (D, 392, 

V) 

510 

CALL 

SOUND (75, K,V) 

520 

REM 

*****  SECONDA  *** 

530 

CALL 

SOUND (C, 440, 

V) 

540 

CALL 

SOUND <P,K,V) 

550 

CALL 

SOUND (C, 440, 

V) 

560 

CALL 

SOUND (P,K,V> 

570 

CALL 

SOUND (C, 466, 

V) 

580 

CALL 

SOUND (P,K,V) 

590 

CALL 

SOUND (C, 523, 

V) 

600 

CALL 

SOUND (P,K,V) 

610 

CALL 

SOUND (C, 523, 

V) 

620 

CALL 

SOUND  (F',K,V) 

630 

CALL 

SOUND (C, 466, V) 

640 

CALL 

SOUND (P,K,V> 

650 

CALL 

SOUND <C, 440, 

V) 

660 

CALL 

SOUND (P,K,V) 

670 

CALL 

SOUND (C, 392, 

V) 

680 

CALL 

SOUND (P,K,V) 

690 

CALL 

SOUND (C, 349, 

V) 

700 

CALL 

SOUND  (F',K,  V) 

710 

CALL 

SOUND (C, 349, 

V) 

720 

CALL 

SOUND <P,K,V> 

730 

CALL 

SOUND (C, 392, 

V) 

G>  AS1 C 


OMAGGIO  A  BEETHOVEN 


740  CALL 
750  CALL 
760  CALL 
770  CALL 
730  CALL 
790  CALL 
800  CALL 
810  CALL 
820  CALL 
830  REM 


SOUND (P,K,V> 
SOUND (C, 440, V) 
SOUND (P,K,V> 
SOUND (E, 392, V) 
SOUND  <75, K, V) 
SOUND (A, 349, V) 
SOUND (P,K,V> 
SOUND (D, 349, V) 


SOUND (75, K,V> 


*****  TERZA  ***** 


840  CALL  SOUND (C, 392, V) 
850  CALL  SOUND (P,K, V) 

860  CALL  SOUND (C, 392, V) 
870  CALL  SOUND (P,k,V> 

880  CALL  SOUND (C, 440, V) 
890  CALL  SOUND (P,K,V> 

900  CALL  SOUND (C, 349, V) 
910  CALL  SOUND <P,K,V> 

920  CALL  SOUND (C, 392, V) 
930  CALL  SOUND (P, K, V) 

940  CALL  SOUND (A, 440, V) 
950  CALL  SOUND (40, K,V> 
960  CALL  SOUND (A, 466, V) 
970  CALL  SOUND (P, K, V) 

930  CALL  SOUND (C, 440, V) 
990  CALL  SOUND (P, K, V) 
1000  CALL  SOUND (C, 349, V) 
1010  CALL  SOUND (P,K, V) 
1020  CALL  SOUND (C, 392, V) 
1030  CALL  SOUND (P,K,V) 
1040  CALL  SOUND (A, 440, V) 
1050  CALL  SOUND (40, K,V) 
1060  CALL  SOUND (A, 466, V) 
1070  CALL  SOUND (P,K,V) 
1080  CALL  SOUND (C, 440, V) 
1090  CALL  SOUND <P,K,V) 
1100  CALL  SOUND (C, 392, V) 
1110  CALL  SOUND <P,K,V> 
1120  CALL  SOUND (f, 349, V) 
1130  CALL  SOUND (P,K,V) 
1140  CALL  SOUND (C, 392, V) 


1340  CALL  SOUND (P,K,V) 

1350  CALL  SOUND (A, 466, V) 

1360  CALL  SOUND (40, K,V) 

1370  CALL  SOUND (A, 392, V) 

1380  CALL  SOUND (P,K,V) 

1390  CALL  SOUND (C, 349, V) 

1400  CALL  SOUND <P,K,V> 

1410  CALL  SOUND (C, 349, V) 

1420  CALL  SOUND (P,K,V) 

1430  CALL  SOUND (C, 392, V) 

1440  CALL  SOUND <P,K,V> 

1450  CALL  SOUND (C, 440, V) 

1460  CALL  SOUND <P,K,V) 

1470  CALL  SOUND (E, 392, V) 

1480  CALL  SOUND (75, K,V) 

1490  CALL  SOUND (A, 349, V) 

1500  CALL  SOUND (P,K,V) 

1510  CALL  SOUND (D, 349, V) 

1520  CALL  SOUND (250, K,V) 

1530  FDR  1=0  TO  400 
1540  NEXT  I 
1550  CALL  CLEAR 
1560  CALL  SCREEN (16) 

1570  F'RINT  “  Inno  alla  Gioia" 

1580  F'RINT 
1590  F'RINT 

1600  PRINT  "  Beethoven  " 

1610  FOR  WAIT=0  TO  1200 

1620  NEXT  WAIT 

1630  CALL  CLEAR 

1640  CALL  SCREEN (16) 

1650  PRINT  "  PRESENTATO  DA 

1660  F'RINT  " 

1670  F'RINT 

1680  PRINT  “  FRANCOMF'UTER  !!" 

1690  FOR  WAIT=0  TO  1200 

1700  NEXT  WAIT 

1710  CALL  CLEAR 

1720  END  (  &otO  Vo) 


1150 

CALL 

SOUND  (F',K,V> 

1160 

CALL 

SOUND (C, 262, 

V) 

1170 

CALL 

SOUND ( 100, K, 

V) 

1180 

REM 

*****  QUARTA 

1  ***** 

1190 

CALL 

SOUND (C, 440, 

V) 

1200 

CALL 

SOUND (40, K,V) 

1210 

CALL 

SOUND (C, 440, 

V) 

1220 

CALL 

SOUND <P,K,V) 

1230 

CALL 

SOUND (C, 440, 

V) 

1240 

CALL 

SOUND  (F',K,V> 

1250 

CALL 

SOUND (C, 466, 

V) 

1260 

CALL 

SOUND <P,K,V) 

1270 

CALL 

SOUND (C, 523, 

V) 

1280 

CALL 

SOUND  (F',K,V> 

1290 

CALL 

SOUND (C, 523, 

V) 

1 300 

CALL 

SOUND  (F',K,  V) 

1310 

CALL 

SOUND ( C , 466 , 

V) 

1320 

CALL 

SOUND (P,K,V> 

1330 

CALL 

SOUND (C, 440, 

V) 
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100  REM  **  FRANCOMPUTER  ** 

110  REM  **  ** 

120  REM  **  MUSICA  DA  ** 

130  REM  **  TASTIERA  ** 

140  REM  ***************** 

150  CALL  CLEAR  _ _ _ _ 

160  FRI  NT  "*  ALPHA  LOOK  IN  GIU'"  ftAMf 

170  FQR  X=1  TO  1000  J  n _ 

180  NEXT  X 
190  CALL  CLEAR 

200  PRINT  "SUONIAMO  CON  LA  TASTIERA"  :  "****************************'" 


DA  ** 


***************** 


: "QUALUNQUE  ALTRO  TASTO  RIPETE": "L 


,  83 , 277 ,88,294,68,311,67, 330 ,86,349,71, 370 , 6 


210  PRINT  "NOTA  TASTO  !  NOTA  TASTO"::: "LA  N  !  LA  J"::' 
" :  : "DO  Z  !  DO  S" 

220  PRINT  : "RE  X  !  RE  D"::"MI  C  !"::"FA  V 
230  PRINT  "SOL  B  !  SOL  H": :: s "QUALUNQUE  ALTRO  TASTO  RIPETE 
QT A  EMESSA" 

240  DIM  REALTONE (12,2) 

250  LASTBYTE=G 
260  FOR  1=1  TO  12 
270  READ  A, B 
280  REALTONE ( I , 1 ) =A 
290  REALTONE ( I , 2) =B 
300  NEXT  I 

310  DATA  78, 440, 74,466,77, 494,90, 262,83,277, 88, 294,68,311 , 67,330, Qi 
6,392,72,415 

320  CALL  KEY(0,K,S)  Aff.  e*n  brio 

330  IF  S=0  THEN  320  «.LL _  ili  ^  _ 

340  IF  K=49  THEN  450  /  9/  '  1 - - -fcfBIB*. 

350  IF  K=50  THEN  480  7? Iri/V  T _ V)  }  } 

360  IF  K=51  THEN  510  Tt  Y  w  4  W  _ 71  J— [■ 

370  IF  K=52  THEN  540  /_  J4±  ~  A  i-9  9  ti 

380  LASTBYTE=K  * 

390  FOR  1  =  1  TO  12  - 

400  IF  K< >REALTQNE < I ,  1)THEN  420 
4 1 0  T ONE=RE AL  T ONE  (1,2) 

420  NEXT  I  ™ 

430  CALL  SOUND (300, TONE, 5)  ^ 

440  GOTO  320 
450  IF  TQNE=0  THEN  320 

460- CALL  SOUND (300, TONE, 5, INT (T0NE/79394+5) ,5, INT (TONE/ 66837+5) , 5) 

470  GOTO  320 

480  IF  T0NE=0  THEN  320 

490  CALL  SOUND (300,  TONE, 5, INT (TQNE/79394+5) ,5, INT (TONE/5625+5) ,5) 

500  GOTO  320 

510  IF  TQNE=0  THEN  320 

520  CALL  SOUND (300, TONE, 5, INT (T0NE/84244+5) ,5, INT (T0NE/66837+5) ,5) 

530  GOTO  320 

540  IF  TQNE=0  THEN  320 

550  CALL  SOUND (300, TONE, 5, INT (T0NE/84244+5) ,5, INT (TONE/5625+5) , 5) 
560  GOTO  320 
570  END 


G":  : 
'ULTIMA  N 


INT (T0NE/84244+5) ,5, INT (TONE/5625+5) , 5) 


10  CALI.  CLEAR 

20  PRINT  “DIMENSIONE  DEI  RETTANGOL 

30  INPUT  "LUNGHEZZA" :N 

40  INPUT  "ALTEZZA" :M 

50  CALL  CLEAR 

60  POR  1=48  TO  144  STEP  8 

70  CALL  CHAR(I, "FFFFFFFFFFFFFFFF" > 

SO  NEXT  I 

90  FQR  1=3  TO  15 

100  CALL  COLORII, 1,1) 

110  NEXT  I 

120  CALL  SCREEN (16) 

130  FOR  1=48  TO  144  STEP  8 
140  RANDOMIZE 
1 50  X— I NT ( <  24-M ) *RND ) + 1 
160  Y=INT  (  (32-N)  *RND)  +.1. 

170  FOR  A=X  TO  X+M-l 
ISO  CALL  HCHAR (A, Y, I , N) 

185  CALL  SOUND (20, 770+X*Y, 1 ) 

190  NEXT  A 
200  NEXT  I 
210  GOTO  130 


Piccoli 

ulìu 

PROLflAMMl 


100  CfìLL  CLEAR 

110  REM  MOIRI QUE  ANI ME E 

120  FOR  CAR=32  TO  152  STEP  8 

1 3 0  CfìLL  CHflR  CCfìR j  "  0 07E7E7E7E7E7 

EOO”) 

140  NEXT  CfiR 
150  REM 

160  POR  6R0UPE=1  TO  16 

170  CfìLL  COLOR CGPGUFE,  GROUPE, 16) 

180  NEXT  GROUP E 

190  REM 


24 

32 


200  FOR  L=1  TO 
210  FOR  C=1  TO 
22 0  CfìLL  HCHfìR <L ?  C ?  32+8* I NT  LRND* 
16)) 

230  NEXT  C 
240  NEXT  L 
250  REM 

260  FOR  GRDUPE=1  TO  16 

27 0  CfìLL  COLOR (GROUPE , I N T  <RND# 1 6 

)+1j  16) 

280  NEXT  GROUPE 
290  GOTO  260 


100  CfìLL  CLEAR 

110  PRINT  "FREQUENCE  DES  LETTRE:: 
HANS  UN  TEXTE" 

120  REM 

130  PRINT  : "TfìPEZ  VOTRE  TEXTE 
140  INPUT  Pì 
150  PRINT 
160  REM 

170  FOR  1=1  TO  26 
180  N= 0 

190  L$=CHR$  < I +64) 

200  FOR  C=1  TO  LENCPS) 

210  IF  SEGì CP$j C?  1)  OLÌ  THEN  23 

220  N=N+ 1 

230  NEXT  C 

240  PRINT  Lì? "  " ; N’ 

250  NEXT  I 
260  REM 

270  STOP 


IL  PAOkftfìttNA  Pni  ItWfcLU  Critici  !>&L  Mdó£ 


10  REH  mHHHHHHH* 

20  BEH  tPROSRAIiHft  'AREE** 

30  BEH  hhhhhhhhh 
40  REM  BY  RANDONE  CARLO  - 
50  BEH  scelta  colori  a  3750 


c Attuo  vm  «Mi  \ 


Sti  fcfUMA&mo 


40  DIH  L(30),RZi30),I!30),Y(30ì 
70  Alt-“AREA  di  un  triangolo' 

90  A2t=‘di  un  parallelograsso' 

90  A3$=“di  un  trapezio* 

100  A4t=‘di  un  quadri lat. (date  diag." 
110  A5S=acon  foriula  di  cassinasento" 
120  fii$='date  le  coordinate  polari* 
130  A7$=“date  le  coordinate  cartes.* 


E'/.fcASlC 


140  A8$=“con  foriula  di  bezout * 

150  A9t-*con  foriula  di  sispson* 

140  AX$="ftestitu2ione  dei  risultati"  ::  AYt=*Fine'  ::  HH=0  ::  S0SUB  3410 
170  A=0  ::  AC=0  ::  DIH  RP(30)::  DIH  TP(30)::  BQSUB  3750 
180  GOSUB  2550 

190  CALL  K£Y(0,K,Sh:  1F  S=0  IHEN  190 

200  CALL  SCUtiDilO0,8OO,l)::  CALL  HCHAR(20,28,K1 

210  F0R  YY=1  T0  45  ::  NEIT  yy 

220  IF  CHRtiK)-"l‘  THEN  CALL  CLEAR  ::  BOTO  340 

230  IF  CHR$(K}=“2"  THEN  CALL  CLEAR  ::  BOTO  770 

240  IF  CHR4(K)="3"  THEN  CALL  CLEAR  ::  BOTO  1000 

250  IF  CHRi(Ki=*4"  THEN  CALL  CLEAR  ::  BOTO  1250 

240  IF  CHR$(K!=,5*  THEN  CALL  CLEAR  ::  BOTO  1330 

270  IF  CHRÌ(K)=*4"  THEN  CALL  CLEAR  ::  GOTO  1410 

280  IF  CHR$m=T  THEN  CALL  CLEAR  ::  GOTO  1750 

290  IF  CHRÌfK)='8"  THEN  CALL  CLEAR  ::  GOTO  1910 

300  IF  CHRtIKi-T  THEN  CALL  CLEAR  ::  GOTO  2030 

310  IF  CHR$(IO=*S*  THEN  CALL  CLEAR  ::  GOTO  2140 

320  IF  CHMIKl^O*  THEN  CALL  CLEAR  ::  END 

330  CALL  HCHARi'20,28,32)::  CALL  SOURD(200}200, Dì:  GOTO  190 

340  RT=1 

350  PRINT  'AREA"  ::  PRINT  "di  un  triangolo"  ::  PRINT  ::  GOSilB  3740 
340  PRINT  " 1 -Date  base  ed  altezza" 


370  PRINT  "2-Dati  2  lati  e  l’angolo'  ::  PRINT  "  cospreso" 

380  PRINT  ‘3-Dato  un  lato  e  gli  angoli*  ::  PRINT  *  adiacenti" 
390  PRINT  "4 -Dati  i  3  lati  (Erone)’  ::  PRINT 
400  PRINT  'SCEGLI" 

410  CALL  KEYiO.K.S)::  IF  S=0  THEN  410 

420  IF  CHRt(Kl='l"  THEN  CALL  CLEAR  ::  GOTO  470 

430  IF-CHR$iK)=*2'  THEN  CALL  CLEAR  ::  BOTO  530 

440  IF  CHR$(K)=‘3'  THEN  CALL  CLEAR  ::  BOTO  410 

450  IF  CHRÌ(K)=,4‘  THEN  CALL  CLEAR  ::  GOTO  490 

440  GOTO  410 

470  PRINT  Alt  ::  PRINT 


480  PRINT  “Date  base  ed  altezza*  ::  PRINT 
490  INPUT  *3ASE=*:B  ::  PRINT 
500  INPUT  *ALTE2ZA=":H 


510  A-BiH/2  GOSUB  2840 
520  GOTO  2B90 


530  PRINT  Alt  ::  PRINT 


540  PRINT  ‘Dati  2  Iati  e  rangola'  ::  PRINT  *  caipresa*  ::  PRINT 
550  INPUT  ‘LATO  A=B:fi  ::  PRINT 
540  INPUT  ‘LATO  B=':B  ::  PRINT 
570  BQSUB  3340 

500  PRINT  ::  PRINT  "ANGOLO  :"  ::  SOSOB  3400 
590  A-A»BfSIN!RÌ/2  ::  GOSUB  2840 
400  BOTO  2890 
410  PRINT  Alt  ::  PRINT 

420  PRINT  "Dato  un  lato  e  gii  angoli"  ::  PRINT  *  adiacenti*  ::  PRINT 
430  INPUT  *LAT0=*:A  ::  PRINT 
440  GOSilB  3340 


450  PRINT  ::  PRINT  "ANGOLO  1  ::  SOSOB  3400  ::  Ri=R 

440  PRINT  ::  PRINT  ‘ANGOLO  2  GOSUB  3400  ::  R2=R 

470  A=iAA2*SIN(81)*SINIR2))/(2tSINiRHR2i)::  SOSOB  2840 

480  GOTO  2890 

490  PRINT  Alt  ::  PRINT 

700  PRINT  “Dati  i  3  lati  (Erone)'  ::  PRINT 

710  INPUT  ‘LATO  A=':A  ::  PRINT 

720  INPUT  'LATO  B=':B  ::  PRINT 

730  INPUT  ‘LATO  C=':C 

740  P=(A*8+C)/2 

750  A=S8R (P* (P-A) J IP-B1 » (P-C) ) :  :  GOSUB  2840 
740  BOTO  2890 
770  RT=2  1 

780  PRINT  "AREA*  ::  PRINT  A2t  ::  PRINT  ::  GOSUB  3740 
790  PRINT  *1-Date  base  ed  altezza' 

900  PRINT  ‘2-Dati  2  lati  e  l’angolo*  ::  PRINT  "  cospreso*  ::  PRINT 
810  PRINT  "SCEGLI* 

820  CALL  KEY(0,K,S)::  IF  S^O  THEN  820 
830  IF  CHR$iK)=T  THEN  CALL  CLEAR  ::  GOTO  840 
840  IF  C.HRtiK)='2*  THEN  CALL  CLEAR  ::  GOTO  920 
850  BOTO  820 

840  PRINT  "AREA*  ì:  PRINT  A2t  ::  PRINT 

870  PRINT  "Date  base  ed  altezza"  ::  PRINT 

830  INPUT  *BASE=*:B  ::  PRINT 

890  INPUT  *ALTEZ2A-":H 

900  A=B*H  ::  GOSUB  2840 

910  GOTO  2890 

920  PRINT  'AREA'  ::  PRINT  A2t  ::  PRINT 

930  PRINT  ‘Dati  2  lati  e  1 'angolo'  ::  PRINT  *  conpreso’  ::  PRINT 

940  INPUT  ‘LATO  A=":A  ::  PRINT 

950  INPUT  'LATO  B=":B  ::  PRINT 

940  GOSUB  3340 

970  PRINT  ::  PRINT  ‘ANGOLO  SOSOB  3400 
980  A=A»BtSIN(R)::  GOSUB  2840 
990  GOTO  2890 
1000  RT=3 

1010  PRINT  "AREA*  ::  PRINT  A3$  ::  PRINT  GOSUB  3740 
1020  PRINT  '1-Date  le  basi  e  l’altezza" 

1030  PRINT  '2-Date  le  basi,  un  lato*  ::  PRINT  *  adiac,  la  base  e  l’angolo* 
1040  PRINT  “  tra  tale  Iato  e  la  base"  ::  PRINT 
1050  PRINT  'SCEGLI' 

1040  CALL  KEY(0,(,S)::  IF  S=0  THEN  1040 
1070  IF  CHR$(K)='l*  THEN  CALL  CLEAR  ::  GOTO  1100 
1080  IF  CHR$1K)="2*  THEN  CALL  CLEAR  ::  GOTO  1170 
1090  BOTO  1040 


1100  PRINT  "AREA"  ::  PRINT  A3i  ::  PRINT 

1110  PRINT  "Date  le  basi  e  l’altezza"  ::  PRINT 

1120  INPUT  'BASE  1=':B1  ::  PRINT 

1130  INPUT  "BASE  2=":B2  ::  PRINT 

1140  INPUT  'ALTEZZA=";H 

1150  A=!Bl+B2)»H/2  ::  GOSUB  2840 

1140  GOTO  2890 

1170  PRINT  'AREA'  ::  PRINT  A3t  ::  PRINT 

1180  PRINT  "Dati  2  lati  e  l’angolo"  ::  PRINT  '  cospreso*  ::  PRINT 

1190  INPUT  "BASE  l=':Bl  ::  PRiNT  ::  INPUT  "BASE  2=*:B2  ::  PRINT 

1200  INPUT  “LAT0=*:A  ::  PRINT 

1210  GOSUB  3340 

1220  PRINT  ::  PRINT  "ANGOLO  ::  GOSUB  3400 
1230  A=(Bl+B2)*fi*SIH(R)/2  ::  GOSUB  2840 
1240  GOTO  2890 


1250  R7-4 

1240  PRINT  "AREA"  ::  PRINT  A4t 
1270  INPUT  "DIAGONALE  !=*:D1  : 


:  CALL  HCHARI23, 30,41)::  PRINT  :i  GOSUB  3740 
PRINT 


1280  INPUT  'DIAGONALE  2=':D2  ::  PRIMI 
1290  SQSUD  3340 

1300  PRINT  ::  PRIMI  'ANGOLO  FRA  LE  DIAGONALI  ;'  ::  GOSUB  3400 
1310  A=Dl»D2«SINIH)/2  ::  GOSUB  2660 
1320  60T0  2890 
1330  RT=5 

1340  PRIMI  'AREA*  ::  FRINÌ  A5*  ::  PR1MT  ::  GOSUB  3740 
1350  FRINÌ  ‘Diti  tutti  i  liti  iene  urto  e' 

1360  PRINT  '  tutti  gli  angoli  iena  due'  ::  PRINT 

1370  INPUT  "NUMERO  DI  LATI  ITUTT1)=*:N  ::  PRINT 

1380  FOR  1=1  TO  N-l  ::  PRINT  'LATO'JIj::  INPUT  LUÌ::  NEH  I 

1390  PRINT  ::  SOSUB  3340  ::  PRINT 

1400  FGR  1=1  TO  N-2  ::  PRINT  'ANGOLO'; I}": ' 

1410  60SUB  3400  ::  RZ(1I=R  ::  NEH  I 
1420  A=0 

1430  FOR  1=1  TO  N-2 
1440  R=0 
1450  P=M 
1460  FOR  1=P  TO  N-l 
1470  6=1-1 
1(80  R=R«RZIB) 

1490  Al=LIT)tLII)*SlN(R) 

1500  8=I-T 
1510  MNTIB/21 
1520  V=2 H 

1530  IF  V=fl  THEN  1550 
1540  60T0  1560 
1550  A1=-A1 
1560  A=A*A1 
1570  NEH  I 
1580  NEH  T 

1590  A=A/2  ::  A=ABS(Ah:  GOSUB  2860 
1600  GOTO  2890 
1610  RT=6 

1620  PRINT  'AREA'  ::  PRINT  A6$  ::  PRINT  ::  GOSUB  3740 

1630  INPUT  'NUDERÒ  DI  VERTICI=':N  ::  PRINT 

1640  FOR  1=1  TO  N  PRINT  'DISTAN’AMi::  INPUT  LUI::  NEH  I 

1650  PRINT  ::  GOSUB  3340  ::  PRINT 

1660  FOR  1=1  TO  N  ::  PRINT  'ANGOLO  TEIA'ilj':' 

1670  GOSUB  3400  ::  RZ(I)=R  ::  NEIT  I 
1680  A=0 

1690  FOR  1=1  TQ  N 

1700  IF  m  THEN  A=A*L(I)»L(1HSIN(RZ(1)-R21I))::  GOTO  1720 
1710  A=AH.Ii)»L(I*l)*SIN(R7(IU)-R2(I)) 

1720* NEIT  I 

1730  A=A/2  ::  A=ABSIA)::  GOSUB  2860 
1740  60TO  2R90 
1750  RT=7 

1760  PRINT  'AREA'  ::  PRINT  A7»  ::  PRINT  ::  GUSUB  3740 
1770  INPUT  "N.RO  VERTICI  DEL  PER1D.=':N  ::  PRINT 
1780  FOR  1=1  TO  N 

1790  PRINT  'VERTICE'il  ::  INPUT  '  I=*:IIIh:  INPUT  *  V=":¥1I)::  PRINT 

1800  NEIT  I  ::  S=0 

1810  FOR  J=1  TO  N 

1820  IF  J=1  THEN  1850 

1830  IF  J=N  THEN  1860 

1840  A=I( J) *(Y (J-l)-V  U>1) ) :  :  GOTO  1870 

1850  A=im*mNHlJH)l::  GOTO  1870 

1860  A=I(J)ll¥IM)-¥(l)) 

1870  S=S»A 
1880  NEH  J 

1B90  S=S/2  ::  A=ABS(SI::  GOSUB  2860 
1900  GOTO  2890 
1910  RT=8 

1920  PRINT  'AREA'  ::  PRINT  A8t  ::  PRINT  ::  GOSUB  3740 


1930  INPUT  'LUNGH.  BASE  RETT1LIN.  AB=': Ab  ::  PRINT 

1940  INPUT  “NUDERÒ  DI  SUDDIVISIONI  =':N  ::  PRINT  ::  N=INTlN!::  D=Ab/M 

1950  FOR  1=0  TO  N 

1960  PRINT  *V  I  I;  *  )='  ;  :  :  INPUT  Vii)::  NEH  I 
1970  SS=0 

1980  FOR  2=1  TO  N-l 
1990  SS=SS*VIZ) 

2000  NEH  2 

2010  A=DHiy(0HHN)l72+SS)::  GOSUB  2860 
2020  GOTO  2B90 
2030  RT=9 

2040  F'RINT  “AREA*  ::  PRINT  A9$  ::  PRINT  ::  GOSUB  3740 

2050  INPUT  'LUNGH.  BAGE  RETTIL1N.  AB=':AB  ::  PRINT 

2060  INPUT  'NUMERO  DI  SUDDIVISIONI  =':N  ::  PRINT  ::  M=INT IN) 

2070  IF  2UNT1N/2ION  THEN  PRINT  'N  DEVE  ESSERE  PANI  !!'  ::  CALL  SOUND  1300, 350,0 
)::  PRINT  ::  60T0  2060 
2030  D=A6/N 

2090  FOR  1=0  TQ  N  ::  FRINÌ  ' V l '; I» ')=*}: :  INPUT  VII)::  NEH  I 

2100  A1=YIQHY(N)::  A2=Q  ::  A3=0 

2110  FOR  1=2  TO  N-2  STEP  2 

2120  A2=A2+Y(I)  :  :  A3=A3*YII-1)::  NEH  I 

2130  A3=A3+V(N-1I 

2140  A=B/3*  I Al  ♦2*A2M*Aj)  :  :  GOSUB  2860 

2150  GOTO  2890 

2160  RED  «RESTITUZIONE* 

2170  PRINT  Alt  :;  PRINT  ::  GOSUB  3740  ::  IP  HH=0  THEN  3550 
2180  PRINT  '1-Restituziane  (parziale'  ::  PRINT  *  e  totale)' 

2190  PRINT  *2-Denu  principale'  ::  PRINT 
2200  PRINT  'SCEGLI* 

2210  CALL  KEYlO,K,S)::  IF  S=Ó  THEN  2210 

2220  IF  CHR$IK)='P  THEN  CALL  CLEAR  ::  GOTO  2250 

2230  IF  CHfi$(Kl=*2'  THEN  180 

2240  GOTO  2210 

2250  FOR  1=1  TO  HH 

2260  DISPLAY  AT(1,14):I 

2270  CALL  HCHARI2, 1,136,32) 

2280  ON  TPUIGOTO  2290,2300,2310,2320,2330,2340,2350,2360,2370 

2290  At=‘di  un  triangolo'  ::  BOTO  2380 

2300  At=A2$  ::  GOTO  2380 

2310  At=A3t  ::  GOTO  23B0 

2320  At=A4W')'  ::  GOTO  2380 

2330  Ai=A5$  ::  GOTO  2380 

2340  At=A6t  ::  GOTO  2380 

2350  At=A7t  ::  GOTO  2380 

2360  At=A8t  ::  6OT0  2380 

2370  At=A9» 

2380  REM 

2390  DISPLAY  ATI3,!):'AREA'  ::  DISPLAY  ATI4,1):A$ 

2400  CALL  HCHARI5, 1,136,32) 

2410  DISPLAY  ATI10,5):'AREA  ='}RP(I) 

2420  CALL  HCHAR(23, 1,136, 321 
2430  DISPLAY  AT (24, 21 ) : '<PRESS)“ 

2440  CALL  KEYIO.K.SI::  IF  S=0  THEN  2440 
2450  CALL  CLEAR 
2460  NEIT  I 

2470  DISPLAY  AHI, Di'  SOMMATORIA  AREE'  ::  CALL  MM  (2, 1,139, 32):;  CALL  H 
CHARI9, 1,136,32) 

2480  DISPLAY  AT I 10, 1 ): "SOMMA  DELLE* ;HH; "AREE  PAR7.=* 

2490  DISPLAY  AT(I2,8)BEEP:AC 
2500  CALL  HCHARI13, 1,136,3.) 

2510  DISPLAY  AT(24l21):'iPRLSS>“ 

2520  CALL  HCHARI23, 1,136,32) 

2530  CALL  KEYfO.K.Sì::  IF  S=0  THEN  2530 
2540  CALL  CLEAR  ::  GOIO  2160 
2550  REM  «QUADRO» 


2560 

2570 

2530 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2040 

2850 

2860 

2370 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2930 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3ìj0 

3160 

3170 

3180 


CALL  CLEAR 

CALI  HCHARil,  1,136,321 
CALL  HCHAR15, 1,136,32) 

CALL  HCHARI21, 1,136,32! 

CALL  HCHAR124, 1,143,32! 

CALL  VCHARU, 1,141,24! 

CALL  9CHAR11, 32, 134,24! 

CALL  HCHARfl, 1,135!::  CALL  HCHflR(l,32,137! 

CALL  HCHAR15, 1,138)::  CALL  HCHAR (5, 32, 140! 

CALL  HCHAR (21,1,138)::  CALL  HCHAS12Ì, 32,140! 

CALL  HCHAR 124,1,142)::  CALL  HCHAR!24,32,!33) 

DISPLAY  AT(2,6)SIZE(18b‘PRQGRAHHA  GENERALE* 

DISPLAY  AT(4,2)SI2Ei26) : “PER  !L  CALCOLO  DELLE  AREE" 

CALL  HCHAR(7,2,79)::  DISPLAY  AT(7, DSI2E17) : 'PZIONI: * 

CALL  HCHAfi'18,2,139,7! 

FOR  fi=9  10  17  ::  CALI  HCHAR (R, 2, 40+8)::  NEH  R  ::  CALL  VCHARS9,3,45,9! 
CALL  HCHAR(18,2,83!::  CALL  HCHAR(19,2,48)::  CALL  9CHAR(18,3,45,2) 

DISPLAY  AT £9,2)31 ZE (27) : A1S 
DISPLAY  ATUO, 2)SIZE!27);A2$ 

DISPLAY  Alili, 2)S!ZE(271:A34 

DISPLAY  AT(12,2!SIZE127):A4$  ::  CALL  HCHAR112, 31,41) 

DISPLAY  AI!13,2)S1ZE(27):A5$ 

DISPLAY  AT(14,2)S!ZE(27):A6$ 

DISPLAY  ATI  15, 2)SIZE (27) : A7$ 

DISPLAY  AI116,2!SIZE!27):ASt 
DISPLAY  Alil7,2)SIZE127):A9$ 

DISPLAY  AT(lS,2)SIZE(27):fiX$ 

DISPLAY  Al  £  19, 2) 5IZE127) : AY$ 

SOSUB  3470  ::  DISPLAY  AT120, 1B)SIZE(10)BEEP: ‘SCEGLI: * 

RETURN 

REH  +ARR010NBAMENT0* 

AA=IM1 1  A)+1NT  !  (A-INT  (A>  )  HOOOO+.  5)710000 
A=AA  ::  RETURN 
REH  tSOTTOHENU» 

CALL  CLEAR 

DISPLAY  AI(1,1):'0RA  PUOI:*  ::  CALL  HCHAB (2,3, 139,8) 

CALL  HCHAR13, 1 , 42) :  :  CALL  HCHAR(3,2,82) 

DISPLAY  AT (3,1) RIPETERE  IL  PROCEDIHENTO  USAT" 

CALL  HCHAR£3,31, 79) :  :  CALL  HCHAR!3,32,58) :  :  CALL  HCHAR (4, 2, 139,30! 

FOR  R-5  10  9  STEP  2  ::  CALL  HCHAR(R,.2,49+(R-51/2)::  NEH  R 
FOR  R=5  TO  9  STEP  2  ::  CALL  HCHAR£R,3,45)  :  :  NEH  R 
DISPLAY  Al (5,2): ‘Azzerando  racoisulatore* 

DISPLAY  AT(7,2) : ‘Sai vando  l’area  nell ’acc." 

DISPLAY  Al £9,2) : 'Non  salvando  l’area  nell’ac* 

CALL  HCHAR19, 31,99!::  CALL  HCHAR 19, 32, 46) 

CALL  HCHAR 112, 1,42): :  CALL  HCHAR£ 12,2, 84) 

DISPLAY  AT(12,1)  :  ‘ORNARE  AL  HENU  PRINCIPALE:*  ::  CALL  HCHARU3, 2, 139,30! 
FOR  R=14  10  18  STEP  2  ::  CALL  HCHAR (R, 2,52+ tR-14) /2) :  :  HE1T.R 
FOR  fi-14  TO  10  STEP  2  ::  CALL  HCHAR!R,3,45)::  NEH  R 
DISPLAY  Al (14,2) : “Azzerando  l’accuiulatore* 

DISPLAY  AT 116, 2) : “Salvando  l’area  nell’acc." 

DISPLAY  Al 1 18,2) : *Non  salvando  l’area  nell’ac* 

CALL  HCHAR (18,31,99)::  CALL  HCHAR 118, 32, 46! 

CALL  HCHAR 121, 1,136, 32)::  CALL  HCHAR124, 1, 143,32) 

CALL  VCHAR121, 1,141,4)::  CALL  VCHARI21, 32, 134,4) 

CALL  HCHAR (21, 1,135)::  CALL  HCHAR<21,32, 137) 

CALL  HCHAR124, 1,142)::  CALL  HCHAR (24, 32, 133) 

SOSUB  3470 

DISPLAY  AT (20, 18) BEEP: “SCEGLI : “ 

CALL  KEY£0,K,S! :  :  IF  S=0  THE»  3150 

CALL  SOUND (100, 800, li::  CALL  HCHAR (20, 28, Kb:  FOR  Y¥=l  TO  45  ::  NEH  YY 
IF  CHR1(K)=T  THEN  3240 
IF  CHR$(K)=*2*  THEN  3260 


3190  IF  CHRttKb’3*  THEN  3280 
3200  IF  CHR$(K)=*4*  THEN  3300 
3210  IF  CHRÌ(K)="5*  THEN  3320 
322Q  IF  CHR$(K)=“6*  THEN  3330 

3230  CALL  SOUND (200,200, 1) :  :  CALL  HCHAR (10,28,32) :  :  BOTO  3150 

3240  AC=0  ::  CALL  CLEAR  ::  SOSUB  3510 

3250  ON  RI  BOTO  340,770,1000,1250,1330,1610,1750,1910,2030 

3260  AC=AC+fi  ::  HH=HH+1  ::  TP(HH)-RT  ::  RP(HH)=A  ::  CALL  CLEAR 

3270  30T0  3250 

3280  CALL  CLEAR 

3290  GOTO  3250 

3300  AC=0  ::  CALL  CLEAR  ::  SOSUB  3510 
3310  SOSUB  160 

3320  AC=AC+A  ::  HH=HH+1  ::  TP(HH)=RT  ::  RPiHHbA  ::  CALL  CLEAR  ::  GOTO  130 
3330  CALL  CLEAR  ::  GOTO  ISO 
3340  REH  «CELTA  ARSOLO* 

3350  PRÌNT  “ANGOLI  CENTES.  (Ci  0“  ::  INPUT  “  SESSA6.  (S)  ?  *:ZJ 

3360  IF  Ij-“C*  THEN  Z=1  ::  BOTO  3390 

3370  IF  Z*=“S*  THEN  Z=2  ::  GOTO  3390 

338U  GOTO  3350 

3390  RETURN 

3400  REH  t INPUT  DI  UN  ANGOLO* 

3410  iF  Z=1  THEN  3450 
3420  INPUT  *  GRADI  >‘:B 

3430  INPUT  '  PRIMI  >*:P 

3440  INPUT  *  SECONDI  >*:S  ::  R= iG+P/òO+S/3600) *PI / ISO  ::  SOTS  3460 

3450  INPUT  LT  ::  R=LT*PI/200 

3460  RETURN 

3470  REH  +STAHPA  AREE» 

3480  CALL  HCHAR(22,2,85)::  DISPLAY  ATT22, DSIZE123): ‘Itila  area  caìc=‘;A 

3490  DISPLAY  AT (23, DSIZE (28)  : B  Accnaulatore  =’;AC 

3500  RETURN 

3510  REH  +A2ZERAHENT0» 

3520  IF  HK=0  THEN  3540 

3530  FOR  1=1  TO  HH  ::  TP ( I )  =0  ::  RP(I1=0  ::  NEH  I  ::  HH=0 
3540  RETURN 

3550  REH  «MANCANZA  RISULTATI* 

3560  PRÌNT  ::::::::  CALL  HCHAR £23,  1, 136, 32) :  :  FRINÌ  'NON  ESISTONO  RISULTAI 
I  IN*  ::  PRINT  “  HEHORIA  !*  ::  FRINÌ  ::  CALL  HCHAR (23, 1,139, 32! 

3570  FOR  F=1  TO  4  ::  PRINT  ::  NEH  F 

3530  PRINT  TABI20);*<PRESS>!  ::  CALL  HCHARS22, 1,136,32) 

3590  CALL  KE¥(0,K,S)::  IF  8=0  THEN  3590 
3600  CALL  CLEAR  ::  BOTO  180 
3610  REH  «CARATTERI* 

3620  CALL  CHAR!133,,1010l01OfO00000O“ì 
3630  CALL  CHSR!134,‘!01C!01010!01010*) 

3640  CALL  CHAR ( 135, 'O0OO0OOFO8O8U8O8'! 

3650  CALL  CHAR (136, *OOOOOOFFOOOOOOOGB ) 

3660  CALI  CHAR  (  1 37 ,  ‘ OOOOOOFO 1 0 1 0 1 0 1 0 *  ! 

3670  CALL  CHAR ( 138, 'O8G3080F08O8O8O8' ) 

3680  CALL  CHAR (139, "OOFFOOOOOGOOOOOO * ) 

3690  CALL  CHAR  !  1 40,  *  1 0 1 0I0FS1 0 1 0 1 01 0** ! 

3700  CALL  CHAR (141, “0308080808080808*! 

3710  CALL  CHAR (142, “ OS0303030F 000000* ! 

3720  CALI  CHAR ( 1 43 , “OOOOOOOOFFOOOOOO " i 
3730  RETURN 

3740  CALI  SOUND;150, 600,1!::  CALL  HCHAR (23, 1,136, 32):: 

3750  REH  «SCELTA  COLORI* 

3760  Cl=2  1  COLORE  SCHERMO 
3770  C2=4  1  COLORE  SCRITTE 
3780  C3=6  1  COLORE  RISUADRI 
3790  CCC=10  (COLORE  CURSORE 
3800  CALL  CLEAR  ::  CALI  SCREEN(Cl) 

3810  FOR  1=1  TO  12  ::  CALL  COLORII, C2, db:  NEH  ! 

3820  FOR  1=13  TO  14  ::  CALL  COLORÌ!, C3,C!b:  NEH  I 
3830  CALL  COLORYO, CCC, 1 3  :  :  RETURN 


RETURN 


530  C0=3 


2  RE?»  FRflSCflffPUTER 

3  RE»  "  ' 

4  RE»  LE  CAPITALI 

5  SE» 

6  RE»  DEL  «ORSO 

7  RE» 

10  CALL  CLEAR 
20  CALL  C0LOR(2, 16,7) 

30  CALL  HCHAR4 10, 9,42, 15) 

40  CALL  VCHARdl,9,42,3) 

50  CALL  VCHAR I 1 1 , 23, 42, 3) 

60  CALL  HCHARd4,9,42,15! 

70  »$=*LE  CAPITALI1 

80  RI=12 

81  C0=1O 
90  S0SU8  531 
100  POR  1=1  TO  20 
105  CALL  SOUND  150,245, 2) 

110  CALL  COLOR42, 7, li) 

115  CALL  SQUNDI50, 456,21 
120  CALL  COLOR42, 16,7) 

125  CALL  S0UND!5G,349,2) 

130  RE H  I 
140  CALL  CLEAR 
145  CALL  COLOR (2, 2. li 
150  DI»  A$(130i,81il80ì 
160  RANDOHIZE 
170  R=1 
180  RESTORE 
190  K= INT  f  RND*1 7 1 ) +1 
200  POR  1=1  TO  K 
210  READ  A$(K),8$!Ki 
220  NEH  J 

230  CALL  HCNAR 122,1,32, 64) 

240  CALL  HCHARd,  1,32,640) 

250  »$=iDIH»I  LA  CAPITALE  DI:1 

260  RI=10 

270  SOSOS  530 

280  »$="  "lrA*(K) 

290  RI=12 
300  8081)8  530 
310  INPUT  C$ 

320  IP  CtOBI!X)THEN  400 
330  CALL  SOUNDdOO,  349,2) 

340  CALL  SOUND  1100,456,2) 

350  CALL  SOUND  UGO,  534, 2) 

360  M*=aO,K  BRAVO1!1 
370  RI=12 
380  60SU8  530 
390  SOTS  160 

400  CALL  SOUNDdOO, 262, 2, -3, 2! 

410  Nf=8Errore!!  Riprova" 

420  RI=12 
430  8GSUB  530 
440  R=R+1 

450  IP  R<3  THEN  310 

460  NJ=*Te  la  dico  io  la  capitale!!!1 

470  RI=16 

480  60SU8  530 

490  «=*  'iBt(K) 

500  RI=18 
510  60SUB  530 
520  BOTO  160 


531  POR  1=1  TO  LENI»*! 

540  CALL  HCHA8IRI, 00*1, ASC!SES$(H$, 1,1))) 

550  NEH  I 
560  RETURN 

570  DATA  ALBANIA, TIRANA, AUSTRIA, VIENNA, BELGIO, BRUXELLES, BULGARIA, SOFIA, CECOSLOVA 
CCHIA, PRAGA, CIPRO, NICOSIA 

530  DATA  DANIHARCA, COPENAGHEN, FINLANDIA, HELSINKI, FRANCIA, PARIGI, 8ERRANIA  FEDERAL 
E, BONN, GRAN  BRETAGNA, LONDRA 

590  DATA  GRECIA, ATENE, IRLANDA, DUBLINO, ISLANDA, REYKJAVIK, ITALIA.ROHA, JUGOSLAVIA, B 
ELSRADQ, LUSSEHBUR8Q, LUSSEMBURGO 

600  DATA  «ALTA, LA  VALLETTA, NORVEGIA, OSLO , OLANDA , AHSTERDAH , POLONIA, VARSAVIA, PORTO 
GALLO, L ISBONA, REP, DE». TEDESCA, BERL INO 

610  DATA  ROMANIA, BUCAREST, SPAGNA, MADRID, SVEZIA, STOCOLNA, SVIZZERA, BERNA, TURCHIA, A 
NKARA, UNGHERIA, BUDAPEST 

620  DATA  RUSSIA, MOSCA, AUSTRALIA, CANBERRA, PIGI, SUVA, GUAM, AGANA,IS.DEL  PACIFICO, SA 
IRAN, NUOVA  CALEDON I fi, NOUHEA 

630  DATA  NUOVA  ZELANDA, NELLINGTON, NUOVA  GUINEA, FORT  «ORESBY, POLINESIA, PAPEETE, SA 
LUMONEjHONIARA, SAMOA, ARIA 

640  DATA  TONGAjNUKU  ALOGA, VflNUATU, VILA, BAHAHA, NASSAU, BARBADOS, BRIDGETO«N,BELIZE, 
BELKDPAN, CANADA, OTTANA 

650  DATA  COSTA  RICA, SAN  JOSE, CUBA, L'AVANA, GIAMAICA, KINGSTON, GRENADA, SAINT  GEORGE 
S,  GUAIME,  BASSE  TERRE 

660  DATA  GUATEMALA, GUATEMALA, HAITI, PORT  AU  PRINCE, HONDURAS, TEGUCSGALPA, ISOLE  VER 
BINI, CHARLOTTE  AMALIE 

670  DATA  MARTINICA, FORT  DE  TRANCE, MESSICO, CITTA  DEL  MESSICO, NICARAGUA, HANA6UA,PA 
NANA, PANAMA, PORTORICO, SAN  JUAN 

680  DATA  REP.D8HENICANA, SANTO  DOMINGO, SALVADOR, SAN  SALVADOR, ST.LUCIA,CASTRIES,ST 
.VINCENT, KINGSTON», STATI  UNITI, NASHINGTON 

690  DATA  ALGERIA, ALGERI, ALTO  VOLTA, 0UA6AD0UGCU, ANGOLA, LUANDA,BENIN, PORTO  NQVO,BO 
TSWANfi, GABORONE, BURUNDI , BUJUMBUMBURA 

700  DATA  CAHERUN, YA3UN8E’ .CAPO  VERDE, PRAIA, CENTRAFRICA,BANGUI, CIAD, N’DJAMENA, CON 
ORE, MORONI, CONGO, BRAZZAVILLE 

710  DATA  COSTA  D’AVORIO, ABiBJAN, EGITTO, IL  CAIRO, ETIOPIA, ADDIS  ABEBA, GABON, LIBREV 
ILLE, GAMMBIA, BANJUL, GHANA, ACCRA 

720  DATA  GIBLiTI,GIBUTI, GUINEA, CONAKRY, GUINEA  BISSAI!, BISSAU, GUINEA  EQUATORIALE,^ 
LABO, KENYA, NAIROBI, LESHOTO, MASERU 

730  DATA  LIBERIA, MONROVIA, LIBIA, TRIPOLI, MADAGASCAR, ANTANANARIV0,MALA»1,LIL0NGNE, 
MALI, BAMAKS, MAROCCO, RABAT 

740  DATA  MAURITANIA, NOUAKCHOTT, MAURITIUS, PORT  LUIS, MOZAMBICO, MAPUTO, NAMIBIA, NINO 
HOEK,NISER,NIA»EY, NIGERIA, LAGOS 

750  DATA  REUNIONjST. DENIS, RUANDA, KIGALI,SAO  TOMEE',SAO  TOME ' , SENEGAL , DAKAR , SIERR 
A  LEONE, PREETONN, SOMALIA, MOGADISCIO 

760  DATA  SUD  AFRICA, PRETORIA, SUDAN, KHARTflUH, GNAULANO, «BASANE, TANZANIA, DAR  ES  SA 
LAAM, TOSO, LUME', TUNISIA, TUNISI 

770  DATA  UGANDA, KAMPALA, ZAIRE, KINSHASA, ZAMBIA, LUSAKA, ZIMBABWE, HARARE,ANTILLE  OLA 
NOESI, NILLEHSTAB 

730  DATA  ARGENTINA, BUENOS  AIRES, BOLIVIA, LA  PAI, BRASILE, BRASILIA, CILE, SANTIAGO, CO 
LOBBIA, BOGOTA 1 , ECUADOR, OUITO 

790  DATA  8UYANA,SERSET0NN,PARAGUAI,A3UNCI0N, PERÙ, LIMA, SURINAME,PARAHARIBO,TRIHID 
AD  E  TOBAGOjPORT  OP  SPAIN 

800  DATA  URUGUAY, MONTEVIDEO, VENEZUELA, CARACAS, AFGHANISTAN, KABUL, ARABIA  SAUDITA, R 
IADjBAHREIN, MANANA 

810  DATA  BESGLABESH , DACCA , BHUTAN , TH I MBU , BIRMANIA, RANGOON, BRUNE I.BANDAR, CINA, PECC 
HINO, COREA  DEL  NORD,PYONG  YANG 

820  DATA  COREA  DEL  SUD, SEUL, EMIRATI  ARABI  UNITI, ABU  DHABI, FILIPPINE, MANILA, GIAPP 
ONE, TOKYO, GIORDANIA, AMMAN 

830  DATA  HONG  KONG, HONG  KONG, INDIA, NUOVA  DHELI, INDONESIA, GIACARTA, IRAN, TEHERAN,! 
RAO, BAGDAD, ISRAELE, GERUSALEMME 

840  DATA  KAMPUCHEA.PHNOM  PENH, KUWAIT, AL  KUWAIT, LAOS, VIENTIANE, LIBANO, BEIRUT, MACA 
G, MACAO, MALAYSIA, KOALA  LUMPUR 

850  DATA  HALDIVE, MALE', MONGOLIA, ULAN  BATGR, NEPAL, KATHAMANDU, OMAN, NASCALE, PAKISTA 
N,ISLANABAB,SATAR,COHA 

860  DATA  SINGAPORE, SINGAPORE, SIRIA, DAMASCO, SRI  LANKA, COLOMBO, TAIWAN, TAIPEi,THAIL 
ANDIA, BANGKOK, VIETNAM, HANOI 


j  R£D  hhhhhhhh 
2  REH  i  i 


3  REH  *  FRftfiCOMPUTER  f 

4  REH  *  * 

5  REH  hhhhhhhh 
S  CALI  CLEAR 

10  FAR  T¥=l  T0  0 


15  CALI  COLOR (TV, là, 2) 
20  NEH  TV 


25  CALI  SCREENÌ2) 

30  PRINT  TAB(8); ‘FREQUENZA  TEST” 

35  PRINT  :::::: 

40  PRINT  "OGNUNO  Di  NOI  E’ ABILITATO”: "AD  ASCOLTARE  DEI  S00Ni”:"C0N  FREQUENZE 
DIVERSE* 

45  PRINT  :::*FAI  ANCHE  TU  LA  PROVA':” - 

TUO  NUHERO'i'E  RICORDALO  " 

50  PRINT  :: ‘QUALI  NOTA  VUOI  (1/100?)" 

55  INPUT  ’NUHERO  ??  *:J 
60  IF  J<=100  THEN  75 


"SCEGLI  IL 


C\-\\  HR,  ££«0  CH£  IL  <1  ^°)  KiDri 
£>ca\\j±  MI  kiLKCOLs  ? 


65  PRINT  ‘HrtAI  IS  lOOiH" 

70  GOTO  50 
75  01=104 
00  RANDOHIZE 
05  P=0 
90  R=làOO 

95  CALL  CHARÌ96, "00070E00083838") 

100  CALL  CHARI97, “003F3F212IE7E7” ) 

105  Q=3 
110  K=2”(l/12) 

115  CALL  CLEAR 
120  FOR  1=1  TO  ì 
125  Z=5NT(15*RND)+2 
130  Z=INT(13*RNDÌ+3 
135  FOR  G=0  TO  1 
140  MNT(24*RNDi+l 
145  Y=INT(32*RNDÌ+1 
150  CALL  C0L0Ri9,Z,2) 

155  N=INT(N*KAI) 

160  CALL  HCHARIX, Y,96+S> 

165  NEH  G 

170  P=P+1 
175  NTÌ=STRÌ(P) 

180  FOR  JJ=1  TO  LEN(NTÌ) 

185  CALL  HCHAR(12, 15+JJ, ASC(SE6$(NT$, JJ, 1 3 } ) 

190  NEH  JJ 

195  CALL  S0UND!fi,N,01 

200  NEH  I 

205  INPUT  ‘QUALE  NUHERfl  NON  AVETE  UDITO??”:H 
210  F=INT(MAH) 

215  PRINT  ‘LA  VOSTRA  FREQUENZA  E’  LAi’iF 
220  PRINT  ‘ ANCORA? (V/N) " 

225  CALL  KEYi0,K,3) 

230  IF  S=0  THEN  225 
235  IF  K=89  THEN  50 
240  END 


(  ÉAftlCAlfc.  T:  (fJlllft'ft 
L  Dal  ) 


10 

REH 

20 

REH 

f  1 

30 

REH 

t  FRANCOHPUTER  * 

40 

REH 

}  i 

50 

REH 

HHHtttHHHt 

60 

REH 

70 

REH 

CARATTERI 

80 

REH 

31 

REH 

IN 

82 

REH 

33 

REH 

CORSIVO 

84 

REH 

100  DATA  10101010100010 
110  DATA  28282800000000 
120  DATA  28237C287C2828 
130  DATA  38545038145438 
140  DATA  606408 102O4COC 
150  DATA  20505020544834 
160  DATA  03081000000000 
170  DATA  08102020201008 
180  DATA  20100808081020 
190  DATA  0028107CS02800 
200  DATA  0010107C101000 
210  DATA  00000000301020 
220  DATA  O00OO07C00OO00 
230  DATA  00000000003030 
240  DATA  00040310204000 
250  DATA  38444444444438 
260  DATA  10301010101038 
270  DATA  3844040810207C 
280  DATA  38440418044438 
290  DATA  081828487C0808 
300  DATA  7C407804044438 
310  DATA  18204078444438 
320  DATA  7C04081 0202020 
330  DATA  38444438444438 
340  DATA  3844443CO4O830 
350  DATA  00303000303000 


360  DATA  00303000301020 
370  DATA  08102040201008 
380  DATA  0OOO7COO7COOOO 
390  DATA  20100804081020 
400  DATA  38440408100010 
410  DATA  38445C545C403B 
420  DATA  O0O018O41C241E 
430  DATA  20203C2222223C 
440  DATA  00001C2020201C 
450  DATA  02021E2222221E 
460  DATA  00001C223C201C 
470  DATA  1C22203S202020 
480  DATA  00001E22221E021C 
490  DATA  20203C22222222 
500  DATA  08000808080808 
510  DATA  0000 1 C04040424 1 8 
520  DATA  00002428302824 
530  DATA  2O1O10101O120C 
540  DATA  0000142A2A2A2A 
550  DATA  00002814141416 
560  DATA  0000 1 C222222 1 C 
570  DATA  00003C22223C2020 
580  DATA  00001E22221E0202 
590  DATA  00002C32202020 
600  DATA  00001C201C021C 
610  DATA  103CI01010120C 
620  DATA  000022222222 1C 
630  DATA  00002222141408 
640  DATA  0000222A2A2A14 
650  DATA  00002214081422 
660  DATA  00002214080808 
670  DATA  00003E0408103E 
730  FOR  T=33  TO  90 
740  READ  Ai 
750  CALL  CHAR(T,A$) 

760  NEH  T 

771  INPUT  Ai 

772  PRINT  ‘ BDSD8S JDH JDSH J * 


100  CfiLL  CLEfiR 

110  FRI NT  "MINI -ED ITEUR  DE  TEZTE 

ISO  FRI NT 
130  REM 

1 4 0  OPEN  #1  : "TP. E" j OUTPUT 
150  DIM  fii  (  1 0) 

160  I i= " N " 

170  REM 

180  FDR  1=1  TO  10 

190  PRINT  : "TfìPEZ  LE  PfìRfibRfiF'HE 

No"  5  I 

£00  INPUT  F'i 

£10  IF  F’$=CHR$  ( 1 3 1 >  THEN  £70 

££  0  Fii ( I ) =PS 

£30  CflLL  CLEfiR 

£40  GDSUE  630 

£50  NEXT  I 

£60  REM 

£70  N= I  —  1 
£30  CfiLL  CLEfiR 

£90  PRINT  " EDITI ON  s":"P  UN  PARA 
GRfìPHE  fi  LA  FDIS  C  OU  EN  CONTI 
NU  fi  fiRRET" 

300  INPUT  "VOTRE  CHOIX  ":RS 
310  IF  Ri;="P"  THEN  360 
3£ 0  IF  R3="C"  THEN  500 
330  IF  R$="fi"  THEN  600 
340  bOTO  300 
350  REM 

360  INPUT  “NUMERO  DU  PRRAGRAPHE 
"  :  I 

370  IF  I <1  THEN  360 
380  IF  I > N  THEN  360 


390  PÌ=fiS(I) 

400  I $= " N " 

410  GOSUB  630 

4£0  INPUT  "VDIJLEZ- IMPRIMER  (O/N) 

•7  "  ■  J  j; 

430  CfiLL  CLEfiR 
440  GDSUE  630 

450  INPUT  "UN  filJTRE  PRRfiGRRPHE  < 
O/N)  ?  '■  :  Ri 

460  IF  R$="D"  THEN  360 
470  IF  R$="N”  THEN  £80 
480  GOTO  450 
490  REM 

500  INPUT  “ VDULEZ- VOIJS  IMPRIMER 
<Q/N)  ?  "  :  I  $ 

510  CfiLL  CLEfiR 
5£0  FOR  1=1  TO  N 
530  P$=R$  <D 
540  GDSUE  630 
550  NEXT  I 

560  INPUT  "fiVEZ-VOUS  PU  LIRE  (D> 

•?  *'  ■  p«J; 

570  IF  R$="0"  THEN  £70 
580  GOTO  560 
590  REM 

600  CLOSE  #1 
610  STOP 

6£  0  REM - 

630  CI =1 
640  R$=p$gc  "  " 

650  C£=C 1 +£8 

660  IF  C£<=LEN  (Pi)  THEN  690 
670  C£=LEN  (Pi) 

680  REM 

690  C=C£ 

700  ÌF  SEG$  <F"I; j  C  j  1  )  =  "  "  THEN  730 
710  C=C-1 
7£ 0  GOTO  700 

730  IF  SEGSCPSjC»  1)0"  "  THEN  78 

o 

740  C£=C+1 
750  C=C-1 

760  IF  OC1  THEN  730 
770  REM 

78 0  PR I NT  SEG3 (Pi ?  C 1 j C-C 1  + 1 ) 

790  IF  I$<>"0"  THEN  810 
8 0 0  PR I NT  # 1  : SEG8  (Pi ?  C 1  ? C-C 1  +  1) 
310  C1=C£ 

8£ 0  IF  C 1 <LEN (P$>  THEN  650 
830  RETURN 


100  REM  HHHHHHHHHHt 
110  REM  ♦  R  fi  N  D  0  H-H  U  S  * 

120  REM  »»»»»»»»»*»»»»»*«»*» 

130  DATA  R  fi  N  D  0  H  MUSIC 
140  DATA  §1983  FRANCOHPUTEfi 
150  DATA  VICENZA  1904 
160  DATA  PRESS  ENTER  TO  START 
170  DEF  CTR*1X$1=SES*( ‘  ',l,14-LEN(I$i/2!M$ 

ISO  CALI  CHAR(64, * 3C4299A 1 A 1 99423C * ) 

190  CALL  SCREEN(O) 

200  CALL  CLEAR 
210  FOR  1=1  TO  8 
220  CALL  COLORII, 2,8) 

230  NEXT  I 

240  CALL  yCHARil, 31,1,90) 

250  CALL  SCREEN15) 

260  READ  Slt,S2t,S3$,S4t 
270  PRINT  :  : :CTR$ (Slt I :  :  :  : :CTR$(S2$) : :CTR$ (S3$! ::::::: 

280  RANDOMIZE 

290  DEF  NOTE (lO^OSC - X  £C  D  £F  6  A  B“,SES»(«,I,!!,  11-13 

300  DIN  H(37),SC130),BA(30),CR130) 

310  REM  (»  READ  IN  PATTERNS  »! 

320  READ  A$  , 

330  S9=0  *  s  fC 

340  READ  St(S9+lì 

350  IF  S$IS9ti!='BASS'  THEN  380 

360  S9=S9»1 

370  GOTO  340 

380  89=0 

390  READ  B1ÌB9+1) 

400  IF  8$!B9+1)="CHQRDS'  THEN  430 
410  B9=B9+1 
420  GOTO  390 
430  C9=Q 

440  READ  C$(C9+1! 

450  IF  C$!C9+1!='END‘  THEN  430 
460  C9=C9*1 
470  GOTO  440 

480  REN  (»  SETUP  SCALE  » 

490  H(l!=262 
500  Hl=2*!l/12! 

510  FOR  1=2  TO  37 
520  H(I!=H(H)»H! 

530  NEXT  I 

540  PRINT  CTR$1S4$)  :  :  : 

550  CALL  NEVIO, CH,ST) 

560  IF  CH<  >13  THEN  550 
570  REN  (t  GET  OPTION  U 
580  CALL  VCHARI1, 3, 32,672! 

590  CALL  S0UND!-l,Hfl!,30) 

600  PRINT  i  1983  FRANCOHPUTER  CLUB 
610  PRINT  : ’OPTIONS  ARE:*:: 

620  PRINT  *  1.  RANDOH  STEPS* 

630  PRINT  '  2.  RANDOH  HARHONV* 

640  PRINT  “  3.  END  PROGRAM*::: 

650  INPUT  'TOUR  CHOICE?  *:Y 
660  IF  !Y<1)»!Y>3)THEN  650 
670  IF  V=3  THEN  1430 
680  PRINT  :: 

690  REM  U  GET  PARAHETERS  »! 

700  INPUT  'SCALE  TVPE  (l-'S,STR4!S9)i'i?  *:S 

710  IF  (S(1)+(S)S9)IHEN  700 

720  IF  V=2  THEN  760 

730  INPUT  'HAI  STEP  SIZE  (1-5)?  “:!N 

740  IF  UN<1!»(IN>5!THEN  730 

750  GOTO  800 

760  INPUT  "BASS  PATTERN  !l-’lSTR$(89)i"!?  “:B 


770  IF  (B<1)»(8>B9!THEN  760 

780  INPUT  “CHORD  PATTERN  ll-“iSTRI (£9)6*1?  a:C 

790  IF  4C< I )f (0C9) THEN  780 

800  INPUT  'PLAYINS  SPEED  (1-9!?  *:T 

810  IF  (T<1)MT>9)THEN  800 

820  T=135-T*15 

830  REH  <»  SETUP  PATTERNS  »! 

840  PRINT  : “NORKING 
850  S0=0 

860  FOR  1=1  TO  LENiSliS)) 

870  N=N0TE(54!3!) 

830  S0=S0-(N)1) 

890  SC!S0)=N»(N>1)-SC(S0Ì»(N<2) 

900  NEIT  I 
910  FAR  1=1  TO  SO 
920  SCÌI*S0!=SC(I!tl2 
930  NEIT  I 

940  IF  Y=1  THEN  1220 
950  80=0 

960  FOR  1=1  TO  LENiBKB)! 

970  N=N0TE(B$(8!) 

930  80=80-(N)l! 

990  8A(B0i=N-llKN>lHA!S0!KN<2) 

1000  NEIT  I 
1010  C0=0 

1020  FOR  1=1  TO  LEN(C4(C!) 

1030  N=N0TE(C1(£)1 
1040  C0=E0-(N>1) 

1050  CR (CO ! =N»2» (N) i ) -CR ICO ) » (N< 2 ! 

1060  NEIT  I 

1070  REH  (»  RANDOH  HARHONY  »! 

1080  PRINT  ::*PLAYING  ...’J 
1090  FOR  H=1  TS  CO 
1100  FOR  1=1  TO  BO 
1110  Vl=CR(H)+SC(l»INTiRND»SO!ì 
1120  V2=CR(H!+SC(1+INT (RND»SO) ) 

1130  V3=CR!H!»BA!I) 

1140  CALL  SGUNBi-400fl,H(Vl),5,H(V2),5,H(V3)/2,l) 

1150  CALL  K£Y!0,CH,ST! 

1160  IF  CH=32  THEN  570 
1170  FOR  1=1  TO  T 
UBO  NEIT  I 
1190  NEIT  I 
1200  NEIT  H 
1210  GOTO  1090 

1220  REH  (»  RANDOH  STEPS  ») 

1230  PRINT  ::‘PLAYINE 
1240  ID=2»IN»1 
1250  VSl)=INT(!S0+!l/2) 

1260  V(2)=V(1) 

1270  V(3)=V(1) 

1280  S0=2»S0+1 
1290  N=INT(RND»3)»i 
1300  I=V(«)tINT(RND»ID!-IN 
1310  I=1»(MIKI>0)»(I(S0) 

1320  V!N)=I 

1330  CALL  30UND!-4000,H(SC(V(l!)),!,H(SCiV(2!)),l,H!SC(¥(3)))/2,l) 
1340  CALL  KEY(0,CH,ST) 

1350  IF  CH=32  THEN  570 

1360  FOR  1=1  TO  T 

1370  NEIT  I 

1330  GOTO  1290 

1390  REH  (»  PATTERN  DATA  »! 

1400  DATA  SCALES, CDEFGAB, CDEXFGAXBX, COESA, CEXFG8I, CESSI 
1410  DATA  BASS , CSS-S , CEGABXAGE , CCGAAS , CGGG-G6 , CGGBZ-GGG-S 
1420  DATA  CHORDS, CCGC, CCFCGC, GFEXD, CADGCFDG, EFFE F 
1430  DATA  END 


n  n  n  in 


REM  ****************** 

REM  *  NIGHT  BLOCK ADE  * 

REM  ****************** 

REM  BY  ANTS  REIGQ 

REM  99' ER  VERSION  2-4.1 

REM 

REM 

CALL  CLEAR 

PRINT  MIS  THIS  RUNNING  ON  " s  s " 
1)  99/4A  OR  2)  99/4  ?":  :  : "PRE 

SS  (1)  OR  ( 2 ) " :  : 

CALL  KEY(0,K,S) 

IF  S=0  THEN  190 

IF  (K<49) +(K>50)THEN  190 

IF  K=49  THEN  250 

KBD=0 

GOTO  270 

KBD=5 

REM  *  *  «SCREEN  FILL 

CALL  CLEAR 

DIS=1 

GOSUB  2830 
DI  S=0 
TQTSHT=0 

DIM  GRF ( 14) , GRF* ( 14) , SCP (32) , R ( 
1 59  >  ,  CL  (  1 59  ) 

DATA  1 36 , 2996593EFF 1 85492 ,63,08 
01 AA0400558201 , 33, 0000C0FCF8, 34 
,  04063FFFFF, 35, 04063FFFFF, 36,04 
063FFFFF, 37 

DATA  04063FFFFF, 38, OOOOOOFF7F , 3 
9 , 0000000F07 , 40 , 000000030 1,41,0 
0000001 

pATA  159,0, 158, 0000007E7E, 42, FF 
‘  FFFFFFFFFFFFFF 

DATA  3,7,3,31,3,11,3,13,3,15,3, 
19,3,30,3,23,3,25,3,21,3,27,  1  1, 
26,5,26, 1 1 , 29, 5, 27,3, 26, 3, 8 
DATA  3,10,3,12,3,14,3,16,3,18,3 
,20,3,22,3,24,8,25,8,26, 11,25,3 
,28, 11,28,3,29,3,9,8,7,11,16 
DATA  11,10,8,11,5,10,8,13,8,15, 
8,17,5,20,8,19,8,21,8,23,11,22, 
11,19,5,22,5,24,5,6,5,12 
DATA  8,9,5,14,5,18,11,13,5,8,11 
,7,5, 16, 11,4,3,5, 11,3,3,6,3, 17, 
3,28,11,31,8,8,11,17,11,11 
DATA  8,12,5,11,8,14,8,16,8,18,5 
,21,8,20,8,22,8,24, 11,23,11,20, 
5,23,5,25,5,7,5, 13,8, 10 
DATA  5,15,5,19,11,14,5,9,11,8,5 
,17,  11, 5, 8, 15, 8, 9, 8, 17, 5, 4, 3, 8, 
11,27,8,3,11,18,11,12,8,5,5 
DATA  5,8,6,8,7,8,27,5,28,8,28,8 
,29,8,30, 11,24,11,21,5,29,5,30, 
5,3,5,6,8,4,5,7,5,27, 11, 15 
DATA  5,4,11,9,5,8,11,6,11,30,8, 
31,3,29,3,23,3,25 
DATA  12,12,13,13,14,14,15,15,15 
,16,16, 16, 17,17,17, 18, 18,19,19, 
19,20,20,21,21 


DATA  3,3,3,3,11,8,5,3,21,19,17, 

15,0,0,0,6,0 

FDR  X=1  TD  14 

READ  GRF(X) , GRF*(X) 

CALL  CHAR ( GRF ( X ) , GRF  * ( X ) ) 

NEXT  X 
RESTORE  360 
FOR  X=33  TO  159 
READ  R ( X ) , CL ( X ) 

NEXT  X 
RESTORE  440 
FOR  X»5  TO  28 
READ  BCP(X) 

NEXT  X 

CALL  CLEAR 

CALL  COLOR (4, 11,1) 

CALL  COLOR (5, 12, 1) 

CALL  SCREEN (2) 

IF  TOTSHT «0  THEN  650 
UUSUIJ  2930 

ON  3LXN  GOTO  670,740,1520,2770 
TOTSHT» 1 
GOTO  630 

IF  KBD=0  THEN  3070 
R ( 1 3) *8 
CL ( 13>-27 

REM  *  * ♦ INIT I AL  VALUES 
NESTORE  450 

READ  A,B,C,D,T1,T2,T3,T4, SCP1 ,  S 
CP2 , SCP3 , SCP4 , TOTAL , ESC , SHOTS , L 
I M ,  M I S 

CALL  COLOR (14, 10, 1) 

GOSUB  2270 
GOSUB  2460 
RANDUM1 ZE 

TOT  SHT=TOTSHT+SHOTS 
SHQTS=0 

REM  *  *  *TEST  FOR  END 
IF  <LIM<  1  > -MESOl  )  THEN  3450 
ON  INT (RND*2) +1  GOTO  820,830 
IF  ( TOTAL > IO) * (M1S>0) +  ( TOTAL >12 
) * (MIS=0) THEN  850  ELSE  830 
GOSUB  1540 

IF  (TOTAL >5) * (MIS=0) + (TOTAL >20) 
* (MI S>0) THEN  850  ELSE  920 
ON  1  NT ( RND* 4 ) + 1  GOTO  860,920,88 
0 ,  920 

GOSUB  3690 
GOTO  900 
GOSUB  3520 

REM  *  *  *DEFENSE  CHECK 
CALL  KEY (O, KM, SM) 

GOTO  3130 
GOSUB  2610 
GOSUB  1830 
GOSUB  2660 
CALL  KEY (KBD, K, S) 

IF  BOO  THEN  980 
GOTO  750 

Il  I HEN  1010 

U-  K=*  13  THEN  610 


GOTO  940 
GOSUB  2560 
GOSUB  2410 

CALL  KEY (KBD, KEY, STAT) 

IF  STATOO  THEN  1080 
GOSUB  2660 

CALL  KEY (KBD, KEY, STAT) 

IF  STAT-0  THEN  750 
IF  (KEY=32) * (SHQTS=0) THEN  1050 
IF  KEY=32  THEN  1030 
CALL  SOUND (90,-7,16) 

IF  (KEY< 13) +(KEY>159) THEN  1030 
IF  (KEY>13) * (KEY<33) THEN* 1030 
REM  *** IMPACT  GRAPHIC 
CALL  GCHAR (R (KEY) ,CL (KEY) , CODE 
) 

CALL  HCHAR (R (KEY) , CL (KEY) , 136) 
CALL  HCHAR (R (KEY) , CL (KEY) , CODE 
) 

GOSUB  2220 

IF  (C0DE>33) * (C0DE<38) THEN  124 
0 

SH0TS=SH0TS+1 
IF  SHOTSCLIM  THEN  1030 
GOSUB  2510 
GOTO  750 

REM  ** *TEST  FOR  HIT 
IF  C0DE=34  THEN  1340 
IF  C0DE=35  THEN  1400 
IF  C0DE=36  THEN  1460 
REM  **SHIP  DESTRUCTION 
CALL  HCHAR (T4,D, GRF ( 1 ) ) 

CALL  HCHAR ( T4 , D— 2 , GRF ( 2 ) , 5 ) 
GOSUB  2130 

CALL  HCHAR (T4, 1 , 32,32) 

D=3 

GOTO  750 

CALL  HCHAR ( T 1 , A , GRF ( 1 ) ) 

CALL  HCHAR (TI , A-2, GRF (2) ,5) 
GOSUB  2130 

CALL  HCHAR (Tl, 1,32,32) 

A=3 

GOTO  750 

CALL  HCHAR ( T2 , B , GRF ( 1 ) ) 

CALL  HCHAR (T2, B— 2, GRF (2) ,5) 
GOSUB  2130 

CALL  HCHAR (T2, 1,32,32) 

B=3 

GOTO  750 

CALL  HCHAR ( T3 , C , GRF ( 1 ) ) 

CALL  HCHAR (T3, C— 2, GRF (2)  ,5) 
GOSUB  2130 

CALL  HCHAR (T3, 1,32,32) 

C=3 

GOTO  750 
END 

REM  *** INCREMENT  SHIPS 
RANDOMIZE 
A=A+INT (2*RND)+l 
B=B+INT (3*RND) +1 


1570  C=C+INT (3«RND~3) +1 
15B0  D=D+INT  (3*RND'N3)+1 
1590  IF  (A>28)  +  <B>28>  +  (028)  +(D>28) 
THEN  1700 

1600  ON  INT <5»RNU~3)  +  J  GOTO  1610,16 
20, 1640, 1660, 1600 
1610  RETURN 
1620  A=A+ 1 
1630  GOTO  1590 
1640  B“B+1NT (2*RND) +1 
1650  GOTO  1590 
1660  C=C+1 
1670  GOTO  1590 
1680  D=D+ 1 
1690  GOTO  1590 
1700  IF  A >28  THEN  1750 
1710  IF  B>28  THEN  1770 
1720  IF  020  THEN  1790 
1730  D=3 
1740  GOTO  1800 
1750  A=3 
1760  GOTO  1 800 
1770  B=3 
1780  GOTO  1800 
1790  03 
1800  ESOESC+1 
1810  GOTO  1590 
1820  REM  »* «DISPLAY  SHIPS 
1830  CALL  HCHAR  < TI , 1 , 32, A-2) 

1040  CALL  HCHAR <T1,A+ 1,33) 

1050  CALL  HCHAR (TI , A, 34) 

1060  CALL  HCHAR (TI , A- 1 , 38) 

1070  CALL  HCHAR ( T 1 , A+2 , 32 , 3 1 -A ) 

1880  IF  (A<5) +(A>2B> THEN  1900 
1890  CALL  HCHAR (SCP1 , SCP (A) , GRF ( 13» 
1900  CALL  HCHAR  .(T2,  1 , 32,  B-2) 

1910  CALL  HCHAR (T2,B+ 1,33) 

1920  CALL  HCHAR (T2,B, 35) 

1930  CALL  HCHAR ( T2 , B- 1 , 39 ) 

1940  CALL  HCHAR (T2, B+2, 32, 31-B) 

1950  IF  (B<5) + ( B>28) THEN  1970 
1  960  CALL  HCHAR  ( SCP2,  SCP  (B)  ,  GRF  (13)) 
1970  CALL  HCHAR (T3, 1 , 32, C-2) 

1980  CALL  HCHAR (T3,C+1, 33) 

1990  CALL  HCHAR (T3,C, 36) 

2000  CALL  HCHAR (T3, C-l , 40) 

2010  CALL  HCHAR ( T3, C+2, 32, 31 -C ) 

2020  IF  ( C< 5 )  +  ( C >28 ) THEN  2040 
2030  CALL  HCHAR  (SCP3,  SCP  (C )  ,  GRF  (13)) 
2040  CALL  HCHAR (T4, 1,32, D-2) 

2050  CALL  HCHAR <T4,D+ 1,33) 

2060  CALL  HCHAR (T4, D, 37) 

2070  CALL  HCHAR (T4, D-l , 41 > 

2080  CALL  HCHAR (T4,D+2, 32, 31-D) 

2090  IF  ( D< 5 )  +  ( D >2B ) THEN  2110 

2100  CALL  HCHAR  (SCP4,  SCP  (D)  ,  GRF  (13)) 

2110  RETURN 

2120  REM  « 4- «EXPLOSI ON 

2130  CALL  SCREEN ( 7 ) 

2140  CALL  SCREEN (11) 

2150  CALL  SCREEN (5) 

2160  CALL  S0UND(100,-7, 12, 110,24, 12 
0,26,140,28) 

2170  CALL  SOUND (800, -7, 22, 110,28) 
2180  CALL  SCREEN (2) 


2190  T0TAL=TQTAL+1 
2200  RETURN 
2210  REM  «««FLASH 
2220  CALL  SCREEN (7) 

2230  CALL  SCREEN (2) 

2240  CALL  SOUND (50, -7, 26) 

2250  RETURN 

2260  REM  «««SET  UP  SCREEN 
2270  CALL  CLEAR 
2280  CALL  SCREEN (2) 

2290  GOSUB  2460 
2300  GOSUB  2560 
2310  CALL  HCHAR (21 , 1 , 42, 128) 

2320  PRINT  "«-f  iring '«*********«*LOA 
DING* " 

2330  PRINT  "* 'mode % *»«***«*****»*** 

*  *  *  «  «  " 

2340  PRINT  "«engaged *«****«*«*««*«* 

***««" 

2350  PRINT  :  >  a  i  i 

2360  CALL  HCHAR ( 1 9 , 1 , 42, 1 92 ) 

2370  CALL  VCHAR < 1 3, 2, 42, 12) 

2380  CALL  VCHAR ( 1 3, 31 , 42, 12) 

2390  RETURN 

2400  REM  «««FIRING  SIGN  QN 
2410  FOR  SET =9  TO  1 1 
2420  CALL  COLOR (SET, 2, 14) 

2430  NEXT  SET 
2440  RETURN 

2450  REM  «««FIRING  SIGN  OFF 
2460  FOR  SET *9  TO  1 1 
2470  CALL  COLOR (SET , 2, 2) 

2480  NEXT  SET 
2490  RETURN 

2500  REM  «  *  «LOADING  SIGN  ON 

2510  FOR  SET =5  TO  7 

2520  CALL  COLOR (SET, 1 2, 2 ) 

2530  NEXT  SET 
2540  RETURN 

2550  REM  ««LOADING  SIGN  OFF 
2560  FOR  SET =5  TO  7 
2570  CALL  COLOR (SET, 2, 2) 

2580  NEXT  SET 
2590  RETURN 

2600  REM  »* «RADAR  SCOPE 

2610  FOR  N= 1 2  TO  21 

2620  CALL  VCHAR (1 5, N, 159, 8) 

2630  NEXT  N 
2640  RETURN 

2650  REM  »» «RADAR  SCAN 
2660  CALL  SOUND ( 190, 356, 1 6) 

2670  CALL  COLOR ( 1 6, 1 2, 1 3 ) 

2680  CALL  COLOR ( 1 6, 1 6, 1 3) 

2690  CALL  COLOR ( 1 6 , 1 2 , 1 3 ) 

2700  CALL  COLOR ( 16, 1 1 , 13) 

2710  CALL  COLOR ( 16, 4, 13) 

2720  CALL  COLOR ( 1 6, 3, 1 3 ) 

2730  CALL  COLOR ( 1 6, 1 3, 13) 

2740  GOSUB  2560 
2750  RETURN 

2760  REM  *** INSTRUCTIONS 
2770  CALL  CLEAR 
2780  GOSUB  2510 
2790  CALL  COLOR (3, 9,1) 

2800  CALL  COLOR (6, 12, 1 ) 

2810  CALL  COLOR (8, 12, 1) 

2820  CALL  SCREEN (2) 

2830  PRINT  "PRESS":  : "<ENTER >  FOR  M 
ENU  AND  SCORE":  : "< SPACE >  FOR 
FIRING  MODE":  : "< ALPHANUMERIC 
KEYS >  TO  FIRE":  : 

2B40  PRINT  "RELEASE  ALL  KEYS  FOR  DE 
FENSE" :  :  : 

2850  PRINT  "<<WITH  99\4A  CTRL  AND  F 
CTN" :  : "KEYS  EXTEND  RANGE  OF  F 

IRE":  : 

2860  PRINT  "AND  ALPHALOCK  SHIFTS  AI 
M  OF":  : "LETTER  KEYS>  <T0  SHIF 
T  AIM  " :  : "OF  NON  ALPHA  KEYS  D 
EPRESS  " :  : 

2870  PRINT  "BOTH  SHIFT  KEY  AND  NON 
ALPHA":  : "KEY  TOGETHER >>" : 

2880  IF  DIS= 1  THEN  2910 
2890  INPUT  A» 

2900  GOTO  610 
2910  RETURN 

2920  REM  ««TITLE/SCORE/MENU 

2930  CALL  CLEAR 

2940  CALL  COLOR (3, 7,1) 

2950  CALL  COLOR (8, 12, 1 ) 

2960  GOSUB  2510 

2970  PRINT  "  NIGHT  BLOCKADE": 

:  "  BY  ANTS  REIGO" :  :  : 

2980  PRINT  "  "; TOTAL; "SUNK" :  :  "  A 

CCURACY" ; INT (TOTAL/TOTSHT* 100) 
; "PERCENT":  : 

2990  PRINT  "  PRESS  NUMBER" :  :"  -1 

-  NEW  GAME":  :"  -2-  CONTINUE" 

3000  PRINT  : "  -3-  END":  -4-  IN 

STRUCT I ONS " : 


3010  CALL  KEY (O, K, S) 

3020  IF  S=0  THEN  3010 

3030  IF  (K<49) + (K>52) THEN  3010 

3040  SLXN=K— 48 

3050  RETURN 

3060  REM  «««REDEF  99/4  KEYS 

3070  R  (  46 ) =11 

3080  CL (46) =26 

3090  R( 13) =1 1 

3100  CL ( 1 3 ) =29 

3110  GOTO  710 

3120  REM  «««MISSILE  IMPACT 
3130  FOR  T=1  TD  4 

3140  CALL  SCJUND  (100,  600,  0,700,  0,-2, 
0) 

3150  CALL  SOUND (100, 110,28) 

3160  NEXT  T 

3170  CALL  SCREEN (10) 

3180  CALL  SCREEN (2) 

3190  CALL  SOUND (500, -7,0) 

3200  CALL  SCREEN (7) 

3210  CALL  SOUND (500, -7, 15) 

3220  CALL  SOUND (500, -7, 26) 

3230  CALL  SCREEN (16) 

3240  CALL  SCREEN (11) 

3250  CALL  SCREEN (2) 

3260  IF  SM=0  THEN  920 

2270  CALL  CLEAR 

3280  CALL  SOUND (900, 20000, 28) 

3290  CALL  SOUND ( 1 , 20000, 28 ) 

3300  GOSUB  2410 

3310  GOSUB  2510 

3320  DAM=INT (RND*2) +1 

3330  IF  DAM>=LIM  THEN  3870 

3340  PRINT  "  damage  report":  : 

:  :  : "MISSILE  IMPACT  HAS  WIPED 

OUT" :  : INT (DAM/LIM* 100) ; "PERC 

ENT" 

3350  PRINT  "OF  REMAI NING  FIRE  POWER 

3360  PRINT  :  :  :  : 

3370  LIM=LIM-DAM 
3380  M I S=M I S  + 1 

3390  CALL  SOUND (3000, 20000, 2tì) 

3400  CALL  SOUND (1, 110,28) 

3410  CALL  CLEAR 
3420  GOSUB  2560 
3430  GOTO  730 

3440  REM  «««DEFEAT  MESSAGE 
3450  CALL  CLEAR 
3460  GOSUB  2510 

3470  PRINT  "  THE  BLOCKADE  IB  BRQKE 
N" :  :  :"  THE  WAR  IS  LOST": 

3480  CALL  SOUND < 3000 , 20000 , 28 ) 

3490  CALL  SOUND ( 1 , 20000, 28 ) 

3500  GOTO  610 

3510  REM  ««IMI SS ILE  LAUNCH 
3520  CALL  HCHAR (TI , 1 , 32, A-2) 

3530  CALL  HCHAR ( T 1 , A+ 1 , 33 ) 

3540  CALL  HCHAR (TI , A, 34) 

3550  CALL  HCHAR ( T 1 , A-l , 38 ) 

3560  CALL  HCHAR  ( TI ,  A-*-2, 32,  31  -A) 

3570  IF  (A<5) + (A >28) THEN  3580 
3580  CALL  VCHAR (Tl-1 , A-l , 136) 

3590  CALL  VCHAR ( T 1-2 , A-l  ,  63) 

3600  CALL  GCHAR ( T 1 —3 , A- 1 , CD ) 

3610  CALL  VCHAR (Tl-3, A-l, 136) 

3620  CALL  SCREEN (7) 

3630  CALL  VCHAR (Tl-1 , A-l , 32) 

3640  CALL  VCHAR ( T 1 -4 , A- 1 , 43 > 

3650  GOSUB  2220 

3660  CALL  VCHAR (Tl-4, A-l , 32, 4) 

3670  CALL  VCHAR (Tl-3, A-l , CD) 

3680  RETURN 

3690  CALL  HCHAR ( T2, 1 , 32, B-2) 

3700  CALL  HCHAR ( T2 , B+l , 33) 

3710  CALL  HCHAR (T2, B, 35) 

3720  CALL  HCHAR (T2, B-l , 39) 

3730  CALL  HCHAR (T2, B+2, 32, 31-B) 

3740  IF  (B<5> + (B>28) THEN  3750 
3750  CALL  VCHAR (T2-1 , B-l , 136) 

3760  CALL  VCHAR ( T2-2, B-l , 63) 

3770  CALL  GCHAR ( T2-3, B-l , CD) 

3780  CALL  VCHAR ( T2-3, B-l , 1 36) 

3790  CALL  SCREEN (7) 

3800  CALL  VCHAR (T2-1 , B-l , 32) 

3810  CALL  VCHAR (T2-4, B-l , 43) 

3820  GOSUB  2220 

3830  CALL  VCHAR (T2-4, B-l , 32, 3) 

3840  CALL  VCHAR ( T2-3 , B- 1 , CD ) 

3850  RETURN 

3860  REM  *« «DEFEAT  MESSAGE 
3870  CALL  CLEAR 
3880  GOSUB  2510 
3890  L I M=0 

3900  PRINT  "  THIS  GUN  EMPLACEMENT 

:  :"  HAS  BEEN  DESTRQYED" 

3910  GOTO  3480 


Setting  Up 

Cassette  Data  Files  on  thè  99/4A 


R 

R 

R 

R 

Ri 

r! 

R 

R 

D 

C 

P 

P 

E 

I 

I 

I 

P 

]F 

I 

I 

I 

|C 

P 

NI 

h| 

p 

E 

IR 

& 

k 


ìa 


There  is  more  to  your  TI  cassette  system  than  just  SAVEing  and  OLDing  programs. 

By  learning  to  use  tour  other  TI  BASIC  commands  (OPEN#,  INPUT#,  PRINT#,  and 
CLOSE#),  you  will  be  able  to  save  and  recali  data  with  thè  cassette. 

Below  is  a  short  program  to  maintain  a  list  of  telephone  numbers  in  an  array  (a  con- 
tiguous  block  of  thè  computer's  memory  for  Storage  of  similar  items)  whose  data  may  be 
saved  on  tape. 

There  is  a  very  important  factor  to  remember  when  using  a  cassette  tape  for  Storage — 
always  use  a  separate  tape  for  your  data,  not  thè  tape  that  contains  your  program! 

OPEN  #  This  statement  prepares  thè  computer  to  use  a  data  file  on  an  accessory 
device.  With  cassette  tapes,  you  may  "OPEN  a  file"  in  either  input  or  output  mode.  See 
line  260  for  an  example  using  OPEN#  with  a  cassette  file  in  thè  input  mode  and  see  line 
480  for  an  example  in  output  mode. 

Until  you  have  studied  thè  TI  User's  Relerence  Guide  and  mastered  cassette  data 
Storage,  always  specify  "CSI",’  INTERNAL,  SEQUENTIAL,  and  FIXED  as  part  of  thè 
OPEN#  statement.  You  may  specify  any  number  from  1  to  255  for  thè  device  (after  thè 
#  sign),  but  this  number  must  be  thè  same  in  all  PRINT#,  INPUT#,  and  CLOSE# 
statements  that  refer  to  thè  device.  The  number  following  thè  FIXED  option  should  be 

64,  128,  or  192,  specifying 
thè  number  of  bytes  in  each 
record.  Select  this  number 
to  be  larger  than  thè 
amount  of  data  (characters) 
you  are  PRINTing  to  thè 
cassette. 

CLOSE  #  This  statement 
causes  thè  computer  to 
finish  any  pending  action 
with  thè  OPENed  device 
and  then  "forget"  about  it. 
See  lines  300  and  520. 

PRINT  #  To  save  data  to 
thè  cassette  tape,  thè 
PRINT#  statement  is  used. 
The  items  to  be  saved  are 
formated  into  a  "variable- 
list."  An  example  is  in  line 
500. 

INPUT  #  To  load  data 
from  thè  cassette  tape,  thè 
INPUT#  statement  is  used. 
An  example  of  this  is  shown 
in  line  280  of  thè  program. 
Note  that  thè  format  of  thè 
"variable-list"  must  match 
that  used  in  thè  PRINT# 
statement  that  recorded  thè 
data. 

Just  entering  this  short 
program  and  seeing  how  it 
works  with  thè  cassette  will 
help  you  think  of  other  ways 
to  use  this  technique  for 
saving  other  types  of  data. 

—David  Brader 
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100  CRLL  CLEfìR 

110  FRI NT  "TRfìVERSEE  MD UVE MENTE E 

m 

120  INPUT  "DIFFICULTE  <1  fi  4) 

DIF 

130  IF  DIF<1  THEN  120 
140  IF  DIF>4  THEN  120 
150  DEBUTI =2+1 NT (DIF/2) 

160  DEBUT2=16-INT(BIF/£) 

170  F I N 1 = 1 6-D I F 
180  FIN£=3+DIF 
190  DIM  B (15) 

£00  NT=0 
£10  NC=  0 
££0  C=1 

£30  FDR  1=6  TD  8 
£40  E  < I ) = I NT <RND#4) +£ 

£50  NEXT  I 

£60  FOR  1=13  TO  15 

£70  B(D-INT<RND*4>+16 

£80  NEXT  I 

£90  60SUB  870 

300  GOSUB  950 

31 0  FRI NT  : "CHOC (S)  : " : " TRAVERSE 
E  (S)  :  " 

320  fi=l 
330  REM 

340  D=0 

350  CALL  KE Y  <4  ?  C AR  ?  NDUV) 

360  IF  CARO 83  THEN  400 
370  B=-l 
380  A=-(A=0> 

390  GDTD  430 

400  IF  CARO 68  THEN  430 

410  D=1 

4£0  A=-  (fì=0> 

430  CALL  6CHAR  (1 1  ?  C?  W> 

440  CHOC--  <U=130)-(U=131) 

450  CALL  HCHAR (1 1 ?C? 32) 

460  C=C+D 

470  IF  C>0  THEN  490 
480  C=1 

49  0  CALL  6CHAR ( 1 1  »  C ? U  ) 

500  CHQC=CHOC-  (W=  1 3  0>  -  <W= 131) 
510  IF  CHOC=0  THEN  590 
5£0  CALL  SOUND <2 00» 44 Oi 5) 

530  NC=NC+ 1 
540  AFF=NC 
550  LIG=££ 

560  COL= 1 3 


570  6DSUB  1010 
580  GDTD  610 

590  CALL  HCHAR <ll,C,l£8+fl) 
600  REM 

610  FDR  1=6  TD  8 

6£  0  CALL  HCHAR  (B  (D  ?  1 , 32) 

630  IF  B  (I><> FINI  THEN  650 

64 0  B < I>  = I NT  CRN D *4) +BEEUT1 

650  B ( I >  =B ( I >  + 1 

66 0  CALL  HCHAR (B (I) ?  I?  1 3 1 ) 

670  NEXT  I 

680  REM 

690  FDR  1=13  TD  15 

700  CALL  HCHAR  (B  (D  »  I»  32) 

710  IF  BCDOFIN2  THEN  730 

720  B  <D  =  INT  <RND*4)  +DEBUT2 

730  BCI>=B(D-1 

74  0  CALL  HCHAR (B  < I ) ?  I  »  1 3 0) 

750  NEXT  I 

760  REM 


770  IF  C<18  THEN  340 

780  NT=NT+1 

790  RFF=NT 

800  LI 6=23 

810  CDL=19 

820  GDSUB  1010 

83  0  CALL  HCHAR  <11,18» 3£> 

840  C=£ 

850  GDTD  340 

860  REM  - 


870  FDR  T=6  TD  15  STEP  9 

88  0  CALL  VCHAR  <T ?  4  ?  1 24  »  7':< 

89  0  CALL  VCHAR  (T  ?  Kb  1 24  ?  7) 
900  CALL  VCHAR (T? 11,124,7) 
910  CALL  VCHAR <T, 17» 124,7) 
920  NEXT  T 

930  RETURN 

940  REM  - 


95  0  CALL  CHAR  <  1 28 ?  “  0  0 1  03 A54 1 0582 
404") 

96  0  CALL  CHAR < 129?“ 0  0 1 03 A545  0 1 C2 
440") 

97 0  CALL  CHAR  < 1 3 0 ? " 0 07878FC7878F 


C7S  "  > 

980  CALL  CHAR (131? 


0 078F C7878FC7 


990  RETURN 
1000  REM  - 


lulu  AS-STRS CAFF.) 

1020  L0N6=LEN (A$) 

1030  IF  LDNG=2  THEN  1050 
1040  A$=  "  “mi 

1 05  0  CALL  HCHAR (L 1 6 ?  COL ?  ASC (SEG$ 
<.A$?  1  ?  D  )  ) 

1 06  0  CALL  HCHAR (L 1 6 ?  COL ?  ASC (SEGS 
(A$  ?  2?  D  )  ) 

1070  RETURN 
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100  REM 

110  REM  EVASI ON 
130  GOTO  610 

140  FOP  J=1  TO  LEHC  STR*C  SO) 

150  CHR*RSC<  SEG$C  STR$C  1  >  5 

1 60  CfiLL  HCHARC  1  >  1 9+ J  ,  CriR  5 

170  NEXT  J 

1S0  RETURH 

190  REM  WHICH  WAV? 

200  COLL  KEYC3,K,S5 

210  MRN=MRO 

220  MCN=MCO 

230  1F  K< >83  THEH  250 

240  MCH=MCH-1 

253  IF  K< >68  THEH  270 

263  MCN=MCN+1 

273  IF  K<  >69  THEH  290 

283  T1RN=MRH-1 

293  IF  K<>83  THEH  310 

360  MRN=MRH+ 1 


713  FOR  J=4  TO  22  STEP  6 

7^0  CALE  HCHARC J, 5, 120, 135  . 

730  CALE  HCHARC J, 19, 120, 125 
740  HEXT  J 

7«~  0  FOR  J =6  TO  18  STEP  o 
733  CALL  HCHARC J, 5, 120,45 
770  CALL  HCHARC  J ,  10,  120,  165 
780  CALL  HCHARC J, 27, 120,45 
793  HEXT  J 

300  CALL  HCHAPX  24,5,1 20 , 26  5 
310  CALL  HCHAPX  2,  5,  120,26  5 
820  CALL  CHARX  121, "0101010101010101" > 
838  CALL  VCHARX  2,4,121,235 
840  CALL  CHARX  122, "80S0008080S080S0" 5 
850  CALL  VCHARf.  2, 31, 122,23  5 
363  CALL  CHARX.  130,  "38443860 A A3344C6"  5 
878  CALL  COLORA  13,5,15 
380  CALL  CHRRC 148, "397CBAFFFFC63838" 5 
890  CALL  COLORX  14,3,15 
980  REM  SET  IH  ITI  AL  F'OSITIONS 


0ftSI  L 


310  IF  C  MCH< 3  5+C  MCH >32  5+C  MRH< 1 5+C  MRH >24  5 


THEH  410  950 

320  CALL  GCHARCMRN,MCH,X5  960 

330  IF  X=140  THEH  1210  970 

340  IF  C  X= 1 20  5+C  X= 1 2 1 5+C  X® 1 22  5THEH  418  930 

359  IF  CMRH=MR05*CMCH=MC05THEH  410  990 

360  CALL  HCHAPX  MRQ , MCO , 32  5  !080 

370  CALL  30UHCX  100,330,2  5  j. pi ì Pi 

380  CALL  HCHARC MRN, MCH, 1305  1P)20 

390  MRO=MRH  ^30 

400  MCO=MCH 

410  RETURH  1050 

420  REM  MOVE  GHOSTS  Ì06A 

430  r=iht>:rhdt.4  5+i  107P1 

440  IF  HSCR,15=MP.H  THEH  510  103Pi 

450  CALL  HCHARC  HSC  R ,  1  5 ,  HSC  R ,  2  5 ,  STPX  R  5  5  x  gca 

460  HSC  R ,  1  5=HSC  R ,  1  5+SGMC  MRN-HS<  R ,  1  5  5  H  00 

470  CALL  GCHARX  HSC  R ,  1  5 ,  HSC  R ,  2  5 ,  STPX  R  5  5  me 

480  IF  STRC  R  50140  THEH  580  H20 

430  STRC  R  5=32  1130 

500  CALL  HCHARC  HSC  R. ,  1  5 ,  HSC  R ,  2  5 ,  140  5  H40 


NSC  3 ,  1  5=23 
HSC 3, 2 5=5 
HSC  4 ,  1  5=23 
HSC  4 , 2  5=30 
MS*” SCORE  = 


910  HSC 1 , 1 5=3 
320  HSC  1 , 2  5=5 
330  NSC  2, 1 5=3 
349  HSC  2, 2  5=30 


PR=1 

PC=11 

GOSUB  1330 
FOR  J=1  TO  4 
STRC  J  5=32 
HEXT  J 

FOR  J=1  TO  4 

CALL  HCHRRC HSC  J , 1 5 , HSC J ,  2  5 , 1 40  5 
HEXT  J 
MRH= 1 1 
MR.0=1 1 


MCH=  1 8 


MC0=18 

CALL  HCHAPX  MRH , MCH ,1305 
GOSUB  200 


505  CALL  SOUHDC 100, 220 , 2  5 

510  IF  NSC R , 2  5=MCH  THEH  590 

520  CALL  HCHAR>r.  HSC  R. ,  1  5 ,  HSC  R ,  2  5 ,  STPX  R  5 

530  HSC R , 2  5=NSC R , 2  5+SGHC  MCH-HSC R , 2  5  5 

540  CRLL  GCH ARC HSC R , 1 5 , HSC R , 2  5 , STRC R  5 

550  IF  STRC R 50 140  THEH  580 

560  STRC R 5=32 

580  CRLL  HCHAPX  HSC  R ,  1  5 ,  HSC  R ,  2  5 ,  1 40  5 
590  I F  C  MRH=HSC R , 1 5  >#C MCN=HSC R , 2  5  5 
THEH  1210 
690  RETURN 
610  CRLL  CLEAR 


1150  GOSUB  430 
1160  GOSUB  200 
'•>  1170  SC=SC+10 
1180  GOSUB  140 
>  1190  GOTO  1140 

1200  REM  CAPTURED 
1210  FOR  J=660  TO  110  STEP  -20 
1220  CALL  SOUNOC200, J,25 
1230  HEXT  J 

1249  M$="PLAY  AGAI.H?" 

1250  PR=13 
1 260  PC= 1 1 


-O0  RAHDOMIZE 

639  CALL  SCREEHC  8  5 

640  CALL  CHARC  128,  ,,000000FFFF"  5 
ge-.g  rem  SET  IJP  MAZE 

6gg  FOP.  J=8  TO  20  STEP  6 
670  CALL  HCH ARC J , 5 , 1 20 , 8 5 
630  CALL  HCHARC J , 1 4 , 1 20 , 9  > 

690  CALL  HCHARC J, 24, 120,75 
700  HEXT  J 


1270  GOSUB  1330 

,090  CALL  KEYC 0 , K , S  5 

(oqg  IF  S=0  THEH  1280 

1 300  IF  K<  >89  THEH  1380 

1310  SC=0 

1320  GOTO  130 

,330  FOP.  J=1  TO  LEHCMS5  5 

Ì340  CHR=ASCCSEG*CM$,  J,  1  55 

1350  CALL  HCHAPX  F'R,PC+J,CHR  5 

1360  HEXT  J 

1370  RETURN 

1383  END 


10  REM  ***** xxxxxxxxxxx 
20  REM  *  X 

30  REM  *  BASE  ALPHA  * 

40  REM  *  * 

50  REM  xxxxxxxxxxxxxxxx 
60  REM  DI  GIUSEPPE  OEOERE 
70  REM  7.1.1984 
80  REM  TI-99/4A  TI  BASIC 
90  REM  xPER  CAMBIARE  IL  NUMERO  DI  UFO 
DA  ABBATTERE  PER  VINCERE  CORREGGERE 
IL  VALORE  DI  Z  ALLE  RIGHE  1210-1340* 
100  CALL  SCREEN(5) 

110  CALL  C0L0R(2,16,5) 

120  Z=0 

130  CALL  CLEAR 

140  A$= "2210BASE  ALPHA» 

150  GOSUB  15t0 

160  POR  H=1  TO  20 

170  RANDQMIZE 

1 80  RIGA=INT(RNB*16)+1 

190  COLO=INT(RND*32)+1 

200  CALL  HCHAR(RIGA,COLO,46) 

210  NEXT  H 

220  CALL  CHAR(128, »FFFF9999FFFFFFFF") 

230  CALL  CHAR(129}"FFFF9999FFE7E7E7») 

240  CALL  CHAR(13OI,,00000000FPFFFFPF«) 

250  CALL  CHAR(131 , «FFFF81 8l FFFFFFFF» ) 
260'  CALL  CHAR( 1 32 , » FFFFC 3C 3 FFE7E7E7 » ) 

270  CALL  CHAR(l33,"FFFFC0C0FFFFFFFF") 

280  CALL  CHAR(134,»FFFF0303FFFFFFFF») 

290  CALL  CHAR(135,»0000FFFFC3C3C3C3") 

300  CALL  CHAR(l 36, "FFFFFFFFFFFFFFFF») 

310  CALL  CHAR(137,"00000000F808«) 

320  CALL  CHAR( 138, «0000000038282020») 

330  CALL  CHAR( 139, "2020202020202020») 

340  CALL  CHAR( 140, «000000001  CI 40404") 

350  CALL  CHAR( 141, "0404040404040404") 

360  CALL  HCHAR(21,1,136,128) 

370  FOR  G«1  TO  24 

380  READ  Q,T 

390  CALL  HCHAR(20,Q,T) 

400  DATA  1,128,8,128,10,128,15,128, 
17,128,2,129,9,129,11,129.16,129, 
32,129,6,129 

410  DATA  18,132, 19, 136, 23, 135, -27, 132, 

31 ,136,3,139,12,139,20,139,28, 
139,5,141,14,141 
4?0  DATA  22,141,30,141 
430  NEXT  G 
440  FOR  M=1  TO  ?0 
450  READ  J,F 
460  CALL  HCHAR(19,J,F) 

470  DATA  1,128,1,128,6,128,10,128, 

15, 128,1 8,128,1 8, 128-,  31, 128, , 
128,11,130,17,130 


480  DATA  7,137,3  138,12,138,20, 
138,28,138,5  140,14,140,22, 
140,30,140 

490  NEXT  M 
500  RESTORE 

510  CALL  VCHAR(19,24,133,2) 

520  CALL  VCHAR(19, 25,131, 2) 

530  CALL  VCHAR(19, 26, 134,2) 

540  X*l8 
550  T«1 
560  U-1 
570  B»29 
580  W«i 
590  D«21 

600  CALL  CHAR(l25,"00l83CFF7E3C") 
610  CALL  CHAR( 119, «000080CEFFFE» ) 
620  CALL  C0L0R(12,11 ,5) 

630  CALL  C0L0R(11 ,8,5) 

640  CALL-  HCHAR(U,B,125) 

650  CALL  HCHAR(X,Y,119) 

660  CALL  HCHAR(W,D,125) 

670  IF  (U=20)+(W=20)  THEN  1370 
680  CALL  KEY(0,N,S) 

690  IF  N=68  THEN  700  ELSE  710 
700  X=X-1 

710  IF  N=83  THEN  720  ELSE  730 
720  X-X+1 

730  IF  N=75  THEN  740  ELSE  750 
740  X-X+2 

750  IF  N=76  THEN  850 

760  IF  S«0  THEN  820 

770  IF  X>18  THEN  780  ELSE  790 

780  X=1 8 

790  CALL  HCHAR(X, Y, 119) 

800  CALL  HCHAR(X-1,Y,32) 

810  CALL  HCHAR(X-2,Y,32) 

820  IF  X=l8  THEN  930 
830  CALL  HCHAR(X+1 ,Y,32) 

840  GOTO  930 

850  CALL  SOUND( 1500, 1760,0) 

860  FOR  1=3  TO  31  STEP  4 
870  CALL  COLOR (4, 9, 5) 

880  CALL  HCHAR(X,I,6l) 

890  CALI  HCHAR(X,I, 32) 

900  TF  (X=U)*(T>=B)  THEN  1130 
910  IF  (X-W)*(I>=D)  THEN  1260 
920  NEXT  I 
930  RANDOMTZE 
940  T J=  TJ+  IN T ( RN D* 3 ) 

990  W-Wi  TNT( RND*3) 

960  IF  U>20  THEN  970  ELSE  980 
970  U=20 

980  IF  W>20  THEN  990  ELSE  1000 
990  W=20 

1000  IF  U-1<-0  THEN  1010  ELSE  1020 


1010  U=2 

1020  CALI  HCHAR(U-1 ,B,32) 

1030  IP  W-1<=0  THEN  1040  ELSE  1050 
1040  W— 2 

1050  CALI  HCHAR(W-1,D,32) 

1060  IF  U~2<=0  THEN  1070  ELSE  1080 
1070  U =3 

1080  CALI  HCHAR(U-2,B,32) 

1090  IF  W-2<=0  THEN  1100  ELSE  1110 
1100  W=3 

1110  CALI  HCHAR ( W-2 , D , 32 ) 

1120  GOTO  600 

1130  CALI  SOUND(  500,-6  ,0) 

1140  K=0 
1150  Z=Z+1 

1160  CALI  CHAR(  96,*' FFE7C  3008 1C3FFFF») 
1170  CALI  C0L0R(9,9,8) 

11 80  CALI  HCHAR (U,B, 96) 

1190  CALI  HCHAR(U,B, 32) 

1200  K=K+1 

1210  IF  Z=10  THEN  1410 

1220  IF  K=4  THEN  1230  ELSE  1240 

1230  U=1 

1240  IF  £=4  THEN  600 

1250  GOTO  1160 

1260  CALI  SOUND(500,-6,0) 

1270  K-0 
1280  Z=S+1 

1290  CALI  CHAR(96,MFFE7C3008lC3FFFF") 
1,300  CALI  C0L0R(9,9,8) 

1310  CALI  HCHAR(W,D,96) 

1320  CALI  HCHAR(W,D,32) 

1 330  K-K+ 1 

1340  IF  Z=10  THEN  1410 
1350  IF  K=4  THEN  580 
1360  GOTO  1290 
1370  A$=  "0101  ATTERRATI1* 

1380  GOSTJB  1510 
1390  FOR  E=1  TO  500 
1400  NEXT  K 
1410  B$*STR$(Z) 

1420  A$= ”01 02 AB BATTUTI  UFO” 

1430  GOSTJB  1510 

1440  AfU=  " 2 3 1 0AN CORA?  (S/N)" 

1450  GOSDB  1510 

1460  CALI  KEY(0,KEY, STATUS) 

1470  IF  STATUS=0  THEN  1460 
1480  IF  KEY=83  THEN  100 
1490  CALI  CLEAR 
1500  END 

1510  REM  -SUBR0UT3NE  PRINT  AT- 
1520  R$=SEG$(A$,1,2) 

1530  C$=SEG$(A$,3,2) 

1540  R=VAL(R$) 

1550  C=VAL(C$) 

1560  FOR  L=5  TO  LEN(A$) 

1570  A=ASC(SEG$(AS,L,l)) 


1580  CALI  HCHAR(R,Cf A, 1 ) 

1590  C=C+  1 

1600  TF  A- 32  THEN  1620 
1610  CALI,  SOUND(  10,1500,0) 

1620  NEXT  L 
1630  RETURN 

D^seri  zi  one  delle  ri^he 

100-530  :  VISUALIZZAZIONE  SFONDO 
540-660  :  DEFINIZIONE  COORDINATE  DI 
PARTENZA  E  CARATTERI 
DELI  »  INTERCETTORE  E  DEGLI 
UFO 

670  :  RIMANDO  NEL  CASO  DI  ATT ERRA G= 
010  DEGLI  UFO 

6fin_A40  J  SPOSTAMENTO  INTERCETTORE 
850-920  :  VISUALIZZAZIONE  E  CONTROL: 

LO  INTERCETTAMENTO  SPARO 
930-1120  :  SPOSTAMENTO  CASUALE 
DEGLI  UFO 

I13O-1250  :  VISUALIZZAZIONE  DEL= 

L» ESPLOSIONE  DEL  1°  UFO 

-  INCREMENTO  NUMERO  UFO 
ESPLOSI 

1260-1360  :  VISUALIZZAZIONE  DEL= 

L'ESPLOSIONE  DEL  2°  UFO 

-  INCREMENTO  NUMERO  UFO 
ESPLOSI 

1370-1500  :  RIGHE  DI  CHIUSURA 
1510-1630  :  SUBROUTINE  PRINT  AT 


Principali  variabili 


X 

= 

COORDINATA 

RIGA  INTERCETTORE 

Y 

= 

tt 

COLONNA  INTERCETTORE 

U 

= 

tt 

RIGA  1°  UFO 

B 

= 

19 

COLONNA  1°  UFO 

W 

= 

II 

RIGA  2°  UFO 

n 

m 

W 

COLONNA  2°  UFO 

Z  NUMERO  DI  UFO  ABBATTUTI 
Fan  zi  onamento 

Tenere  premuto  il  tasto  ALPHA  LOCK. 
Bisogna  evitare  che  gli  UFO  atterri: 
no.  La  vittoria  ò  prevista  abbatten= 
do  10  UFO,  ma  si  può  variare  il  nu= 
mero  correggendolo  alle  righe  1210- 
1340.  Premendo  il  tasto  D  l'inter= 
cettore  sale  di  una  riga;  con  il 
tasto  S  scende  di  una  riga;  con  il 
tasto  IC  scende  di  due  righe;  con  il 
tasto  L  spara.  Gli  UFO  sono  aziona= 
ti  dal  computer;  possono  scendere 
casualmente  di  0,1,2  righe.  Alla 
fine  con  il  tasto  S  il  programma 
ri  comincia . 


Ho  ricevuto  il  2°  numero  della  rivista  del  Club  :  è  ottima,  ric¬ 
chissima  di  spunti,  programmi  e  suggerimenti.  Sono  lieto  dell’interes¬ 
se  da  voi  Dimostrato  per  il  mio  programma- subroutine  "PIXEL-TRAIL- 
CIRCIE".  Ritengo  però  opportuna  qualche  precisazione. 

Con  tali  subroutine  Ex. Basic  è  possibile  non  solo  realizzare  UNA 
retta  od  UN  cerchio,  ma  è  possibile  (semplicemente  richiamando  più  vol¬ 
te  tali  subroutine)  sovrappore  diversi  segmenti  o  cerchi  o  disegni  com¬ 
plessi,  tutto  Questo  SENZA  CHE  IL  FLOTTAGGIO  DI  UN  PUNTO  ALL’INTERNO 
DI  UNA  MATRICE  GIÀ’  DEFINITA  DISTRUGGA  L’INFORMAZIONE  (pattern)  PRECE¬ 
DENTEMENTE  CONTENUTA.  La  velocita’  ai  esecuzione,  inoltre,  è  diventata 
(con  la  nuova  versione)  accettabile.  Naturalmente,  e  ci  tengo  a  farlo 
sapere  a  tutti  gli  altri  soci,  chiunque  avesse  suggerimenti,  critiche, 
obiezioni  od  eventuali  possibili  miglioramenti  da  apportare  al  program- 
ma-subroutine  in  questione,  è  pregato  di  farmelo  sapere  !  !  Qualcuno  mi 
ha  obiettato  che  la  funzione  CIRCLE  non  realizza  un  cerchio  ma  una  el¬ 
lisse:  questo  non  è  dovuto  ne  a  cattivo  funzionamento  del  programma,  ne 
a  difetti  ai  regolazione  del  monitor,  ma  esclusivamente  al  fatto  che  i 
pixel  del  TI  99  non  sono  quadrati,  ma  rettangolari  !  Volendo,  chi  lo 
desidera  può  ri  definire  la  funzione  in  modo  tale  da  compensare  lo  schiac¬ 
ciamento  del  cerchio,  per  esempio  sostituendo  l'equazione  della  circon¬ 
ferenza  con  quella  di  mia  ellisse  con  l'asse  minore  parallelo  alle  ri¬ 
ghe  del  video.  Questo  però  comporta  un  falsare  l'informazione  contenu¬ 
ta  nella  mappa  viaeo  del  TI  99»  il  quale  sì  ci  farebbe  vedere  un  cerchio, 
gja  lui  "penserà"  ad  una  ellisse  !  A  mio  parere,  quindi,  è  meglio  che  il 
51  99  "pensi"  ad  un  cerchio,  anche  se  noi  veaiamo  una  ellisse,  questo 
proprio  per  evitare  ai  falsare  la  logica  del  programma.  Inoltre,  con  il 
programma— subroutine  in  questione,  il  numero  massimo  di  caratteri  vi¬ 
sualizzabili  in  modo  grafico  è  di  143-32=  lll(in  quanto  lavora  in  am¬ 
biente  Extended  Basic);  se  si  tenta  di  definire  il  carattere  con  codi¬ 
ce  144,  il  programma  si  blocca.  Questo  significa  che  le  capacita*  gra¬ 
fiche  in  alta  risoluzione  del  TI  99  con  linguaggio  XBasic  (per  quanto 
riguarda  il  tracciamento  di  linee)  sono  limitate  a  111  matrici  8X8 
cefinibili  dalla  subroutine.  Se  qualcuno  riesce  a  fare  di  meglio,  e  con 
una  velocita'  di  esecuzione  più  elevata,  è  vivamente  pregato  (e  gliene 


sarei  veramente 


farmelo 
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Aao'iU  CHIi/W>o  (i'é) 


MODENA  27/3/1564  PASQUALE  ALBERTO 

Via  liionteverdi  32 

41100  MODENA  tei. 059/373604 

Ecco  alcune  informazioni  sul  TI99/4A: 

Se  dopo  l'esecuzione  di  una  CALL  KEY(4»K,S)  è  eseguita  una  INPUT  non 
è  più  possibile  correggere  quello  che  si  scrive  in  questa  lNPUT(cioè 
i  tasti  con  le  freccette  non  funzionano  più  regolarmente) • 

Per  evitare  ciò  basta  far  seguire  alla  suddetta  CALL  KEY  una  CnLL  KEY 
con  un'altra  unità  di  tastiera(cioè  0,1,2,3»5) 


Per  sfruttare  i  files  su  cassetta  anche  senza  il  controllo  sul  motore 
del  registratore  è  sufficiente  seguire  le  istruzioni  date  sul  video 
per  la  registrazione. 

Per  l'ascolto  si  può  :  1 ) Riportare  il  nastro  al  punto  in  cui  era  al  momen¬ 
to  in  cui  si  è  premuto  REC  e  poi  seguire  le  istruzioniXaiantenendo  cosi 
una  buona  sincronia  con  la  registrazione). 

2)Fortare  il  nastro  all'inizio  del  segnale  continuo (quel lo  che  serve 
per  la  regolazione  iniziale  del  livello) e  premere  PLaY  non  appena  le 
scritte  delle  istruzioni  si  sollevano  di  1  riga  mediante  uno  scroti. 


1  diodi  servono  per  evitare  interferenze  tra  un  joystick  e  l'altro  qualora 
siano  usati  contemporaneamente.  Io  ho  usato  diodi  AA119(li  avevo  in  casa) 
ma  credo  che  la  loro  scelta  non  sia  critica. 

TI99/4A s pi edino/f unsi one/ effetto  sulla  CALL  «JOYSf (a,x,y) 

1  libero 

2  massa  joystick  2 

3  alto(y-4) 

4  fuoco(K=*l8  nella  CALL  K!Y(l(o  2),ìC,S) 

5  sinistra(x--4) 


A TARI: 


6  libero 

7  massa  joystick  1 

8  basso (y--4) 

9  destra(x*4) 

1  alto 

2  basso 

3  sinistra 


MATERIALE  OCCORRENTE: 

2  BASCHI  CàMBON  9  POLI 
1  FEMMINA  CANNON  9  POLI 

1  PEZZO  DI  CAVO  7  FOLI  non  necessariamente 

schermato 


10  DIODI 


4  destra 

5  libero 

6  fuoco 

7  libero 

8  massa 

9  libero 
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.  E  PCI  VE"': E  LUI,  LENTO,  GRAVE, . 

BELLO  NELLA  SUA  APPARENZA  NOBILE .  CON 

I  SUOI  16  BIT,  64  K,  62  TASTI,  2  64  K  ROM  IN 
CARTRIDGE  SLOT,  LIQHT  PEN ,  CA5D  NO  DEM  etc  etc 
etc . 

PERSONAL  IBM  JP 

....  E  PORTO’  SGOMENTO  E  MORTE  AI  VARI  TR A3IC= 
COLI  DI  IGNOTI  NATALI 


Notes:  supoorts  J  40,90<x*itti  coior monocnrome 
moae5:  monocnrome  text  ras  grey  snaoes:  comoao 
Me  «CSI  monitor  requreo  for  <Ktxor  niqn  re90Rjoon 
no  souna  witnout  extemai  amo  speaker  besr  for 
coior  graonics;  9000"  for  word  orocessing,  business 
Extras  i6M  cstxe  <$20)  sondarci  audio  catte  wrtn  RCA 
Plug  iS3fi. 


Notes:  40  coiumns  max;  low  and  medium  resoiu- 
oon  wftn  16  coiors;  good 1  for  coior  grapnics;  most 
orano*  witn  audio  capabillty  —  othenvise.  seoarate 
amo.  speaker  reauired  isee  Rg.3A)  Extras.  standard 
audio,  video  cable  witn  RCA  piugs  i$3  ♦  ) 


Notes:  Different  inoucs  anow  simuitaneous  connections.  supoorts  all 
cdkx  monocnrome  mooes  exceot  4-coior  at  nign  resoiuoon  adequate 
for  color  graonics:  best  for  word  processing,  business  Extras.  iBM  TV 
connector  ($30),  standard  audio,  videe  caoie  witn  RCA  piugs  i$3fi 


Notes:  40  coiumns  max  iow  and  medium  resoiu- 
bon  witn  16  coiors  adequate  for  coior  graonics. 
Extras:  BM  TV  connector  i$30) 


p  PARAUEl  PRINTER  INTERFACE 

|~  ONiOFF  switch 

JOYSTICK  PORT  -1 
iOVSTICK  POST  2  -I 

FOR  LA  TER  US£  -I 

KEYBOARO  - 


Notes:  30<oiumn  requires  band  widtn  l4Mhz; 
grev  snaoes;  besr  for  word  orocessmq,  spread 
sheets,  and  business  aopiications:  most  versarne  in 
comoinaaon  witn  coior  TV  isee  flg.3B)  Extras  Stan¬ 
dard  audio/  video  caoie  witn  rca  piugs  i$3+). 


Notes:  IBM  Compact  Pnnter  ($175  inciuoes  attacned 
caoie)  operates  at  1200-baud  max.  RS232  sena!  in¬ 
terface  supoorts  up  to  4800  oauo  witn  compatmie 
mira-party  pnnters.  Extras:  IBM  Adapter  Caoie  for 
Sera  Devices  ($25) 


ACOuSTlC  COUPlER  i MODEM) 
FOR  PHONE  hEAOSET 


AMICI 


Notes:  Extemai  modem  t$  pracncai  if  ai  ready  nave 
30DOaud  modem  and  don  t  need  die  serial  port  for 
pnnter.  or  If  neeos  requlre  1200-caud  communica- 
oon  witn  a  higner-speed  modem.  Extras:  IBM 
Adapter  Cable  for  sena»  Devices  ($25).  standard 
teiepnone  juncnon  aoapter  ($3  +  ) 


DCPO  UN  GRANDE  HCME  (  Il  no 
caro  TEXAS  )  NCN  SI  PUC  AN 
i  INDIETRO .  CI  VUOLE ( APPENA  D 
|  PCM  I BILE ) UN  ALTRO  ”  GRANDE 

!  COME  PROMESSO  NELLA  SCORSA 
I  VISTA  MI  STO  INTERESSANDO  F 
!  FAVORIRE  TUTTI  VOI.  PER  IL 
MENTO  NON  ACQUISTATE  NULLA! 

FIN  DA  ORA  IL  MIC  INTERESSA 
TO  VA  AL  PCjr  IBM.  E  PRIMO 
ITALIA  PUBBLICO  I  PRIMI  PRO 
MI  PER  TALE  COMPUTER.  ABBI 
PAZIENZA  !  NON  SARETE  SOLI! 


stro 
DARE 
IS  = 

»  •  1 

RI  = 
ER 
MC= 


— Notes:  Parane!  Pnnter  interface  ($99i  suoporrs 
parane  rcentromcs-companbie  ")  pnnters  ano  Diot- 
j  ters  ano  otner  output  devtces.  txtras  Common 
:  parane  cable  witn  DB25connectors  ($25 -f),  or  ibm 
parane  caoie  i$55). 


M  E  N  = 
IN 

GR  AM  = 
ATE 

Itti 


Notes:  18M  internai  Modem  is  praebeai  if  serial  porr 
is  neeoed  for  a  printer  or  otner  poripnerai,  and  if 
300  oaud  is  a  satisfactory  rate  of  communication. 
.  worvs  witn  rotary  and  touen-tone  teiepnones  Ex¬ 
tras;  Standard  teiepnone  junctlon  adapter  i$3  +  ). 


PfobSlMA  filv'lViA  LA?*  Vi  -fcfidétoo  lt  urtCftfrtft i^LCrit  ùcl  ficn 

E'  tifi  fJbLLt  nit  Melili  lUEDMliiùlftWO  Jfòa  GiPtftìfjyJlA  [\ 


L'INTERA  RACCOLTA  (  100  PROGRAMMI  )  VERRANNO  CEDUTI  GRATUITAMENTE 
A  CHI  ACQUISTERÀ'  IL  COMPUTER  APPENA  QUESTO  SARA'  DISPONIBILE  SUL 
MERCATO  ITALIANO.  (  FIN  DA  ORA  SONO  APERTE  LE  PRENOTAZIONI  CHE 
DOVRANNO  ESSERE  ACCOMPAGNATE  DA  UN  IMPORTO  DI  100.000  LIRE.  Solo 
così  potremo  ottenere  condizioni  di  vendita  vantaggiose.) 

FIDATEVI  CIECAMENTE;  STO  LAVORANDO  ANCORA  UNA  VOLTA  PER  VOI  TUTTI. 


,1  9  0| 
il  i  0 
11210 
1I3:0| 
!  1  401 
;  jTSiOl 
!  160 
!  170 
!  180 
'  1 1 '910 
2  00 
!  :2ii'0 
;2I2  0 
230 


R  EMI  >I*i*!*i*ì*|*!*!*i*!  ||  i  ,  {  :  ; 

R  EMI  >j  S  A  V  I  NO  l*i  I 

b:em  !  I  !  ! 

remi  lumina  hi  m  ii  inHRiiniiifTin* 

RIEMI  ANIDI  T'HIEI  HCMI  STAFF 
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DiEIF*  jFWvW 1 1 (  ill+i 1 1 )  i^NI-il  1)  l/tl|  I  !  : 


2  a  ai 

2  5  91 
!  2  6  01 


ID'EF'  F  NGi=|F!» (CAI  (  ! 2 1 }  I / 1 P '  I  1  I  j  ]  :  i  j  j  i  I  I  !  I  :  I 

D  E'Fl  F'N!C;pi=.P'- NIDI/  f!  !  |  |  !  I  J  !  I  !  !  Il  i  |  !  i  I 

DEF  F'N:C!=.P  R  Eli  XI)  .  (  |ll+|  I  |NÌ/  (  ;1  09  •  Al  I  i  )  H  (  X  -  T  y! 

)  !  i  i  I  !  I  I  I  I  |  |  i  ’  !  I  |  I  !  I  I  ||l 

D  E  F’  F'NIRIDU  ’AI  )  |=sì  I  IN  TI  (  |Ai*  '1  0 ' 911-1 .51)  /  Il  :9  9Ì  j  ! 

REMI  ............  ;  I  j  !  I  .  I  j  !  I  ' 

REMI  TI  TISI  ISlCIRIE  ENI  >  j  |  |  i  .  I  il,  I  I 

R  EMI  •  •  •  •  •  •  •  •  |  i 

UT  OIFT'  CUBI  LOCA,  Tir.  1 .21 .  1  SI  :  P!Hi  !  HIT'  i‘  S  AV 
I  NG  LOCATE  34.1  ;  PS’ST  'PRESS  EINIT  E  R 

T'OI  I  EIGII  NI  -  i  |  I  | 

A  S'=:I  NKIE.YJ  :  I  F  Aj:=H‘|  IT'HIEIN  312101  I  I  j 

I  F  A  SÌ<[>‘C;H:BìS|  (  il 1 3 .  I  :T  H1E1NI  3  2  9  ! 

R  E  MI  .1.  - - -  i  i  1  j  ! 

REM!  MENU  SiCIRIEIEN  ! 

R  EM!  ...t.i.l.i.l.i.j.l.  •  j  !  I  !  I  |  :  I  !  |  j  . 

C:L  S  :  L.OICIAiT’EI  1  !  ,  13  9'  :  iPIBÌ  I  INSTI  'MIEINlui  ISICIHIEIE  NI'  | 
:  LOCATE  4.1  P  R  !  N  T  'CHOCSE  I  :  |  ■  j  :  ILIOIC’A  T  E| 
6  .  9  :  PRIINITI  ."11.  CICMIP’OIUINID  I  iHÌTIE'BÌEISÌTI  '  :  LI 


OC  ASTE,  8.9 
:  LOCATE  1 
A  YMiE  NITiS’  ‘  I  : 
RE.  VAL  UiE!’ 
LOCATE  1,3 


9  :  P  R,I  N  T  '  21.  i 
19,  91  :  P  R  I  NITI  r 


LOICIAIT  E  12:,  91  :  Pia  I  NiT 
.  1  2  :  P  Ri! ’NITI  "F  IX  ED! 


:  LOCATE!  1  5  .  9  P  R  I  NT  'Si.  E  NIDI  T  HIEI  P’ROG) 
RAMI"  |  |  I  i  j  I  |  !  1  |  |  |  I  |  i  I  j  |  |  |  M  |  ;  | 

L  OCIA’T’EI  2141 .  jll  :  IP’BI  !  NITI  j'IYOlUBI  iCIHÌO!  I  CIEÌ? I -  !  ; 

A  S  =.!  N  KEIY1  :  1 1  F  ,Ai*  =1  - 1  '  ’  THEN  49  9  j  |  j  I 

IF  ASCII  A  J,ll<l4l9l  ORI  !  A  i  S  ÌCI  (  All  |  )  I>i5i3l  T'HIEINI  491 

#i  ■  !  1  !  :  :  i  .  i  i  ’  •  !  I  I  lì  ì  i  i  I  I  j  i  M  i  I  | 

CHOtCE-VAL.ASS  .  I  F  ICIHlOi  I  iCIEi=iSI  T’HIEINI  1  1  S| 

a  i  !  i  i  !  !  i  i  :  1  i  |  !  i  !  i  i  !  1  ;  j  !  i 

CLS  :  LOCATE!  11,  1  :  INPUT  '  CU  R  R  E  N  T'  MC  N  T  H 
!  1 1—  1  2:  )  :  :  *  I  ;  :PMI  :  : I  F  PMkill  blRi  PMI>i1:2l  T  H  E  N 

CO  TO',  4  3  9  i:l  il  ,  |  I  |  I  I  I  |  |  i  j  |  Il  | 

LOCATE,  Si.  Il:  |1  HIP  UT!  j‘  C,U  BlHIE  NT  ’Y'E.ARÌ  :  PI 
Y  I  F  P'Ykìai  -T’HIEW.  4I4I0I  |  I  |  I  i  |  I  I  |  !  i 

LCCATEyji.,1  INPUT!  -  FU  T  UIB  E  MDIH'T  HI  (1—1 
2'l  :  '  s3P«M*'F'  .FMK  1  OIBI  FMIxl  2  IT’HIElNi  4.5  9 
LOCATE:  71.  1  :  1  NiPUT  '  F  U  T  U  P  E  Y  E  A  Ri  :  i  '  ;  F  Y  : 


L  E  V  E, LI  P  A  YME  N  T  S  '• 
131. i  I  NiCIHIEIAlSI!  NG  pj 
’l:  IPIR, UNITI  !"  41.1  T  U  T  U| 

il!  Ì  I  i  !  M  I  I  | 

FT  X  ESDI  PA  YMIEINIT  S  * 


A  S  =-I  N  K  EIY 
I  F  A  SCI!  A 

•I  :  !  i  I  I  ! 

C  HO:  I  C  E  -  V 

9' 


i  =  I 
E  T  U  R  N 


F  N  H  D  i  PAI 


■rem  future  value  fiied  payments  sub 

ROUTINE 

REM  . 

CO  SUB  9  8  9  GOSUB  1949 

1=R  X  :  Z  =  1  :  TY  —  Y-*-M  1  !  .  f  P=I  HI  »P  •  T  Y  ,  I 

F  T  P  =  9  THEN  TP=1 

N  =  X  N  P  :  P  =  r  N  P  V  :  N  =  X  NP*TP:F=FNFV  A=FN 
G  :  T  Y  =  l  M  I  1  2  NPi-INTiM  12  N  P  N  P 

IF  TY<>9  THEN  PRE!X|=A:A=FNC 


LOCATE  17 
'  :  F  N  R  D  l  A  ! 
RETURN 
LOCATE  13 
N  S  A  V  I  NGS 
GOTO  969 
RETURN 
LOCATE  1 3 
R  :  '  :  N  P  :  I;F 
9  8  9 

RETURN 
LOCATE  15 


INPUT 
P  R  E  :  X 


13.1  :  INPUT 
I  F  N  P  <1  OR 


wi  l:  = 


P  R  E  S  E  N  T  AMO  UNI  I  | 
IF  PHEiIkl  TH£N| 


-PAYMENTS  PE!  Y  E  A 
N  P  >  3  6  5  THEN  GOTO 


1: INPUT  -AMOUNT  NEEDEO  AT 

END  OF  PERI  OID  :  *  :  N  D  :  I  F  ND^9  THEN  GO| 

to  i o 9  9  ,  ;  i  |  ; 

R  E  T  U  RlN 

LOCATE  17.1  :  INPUT  -•/.  INCREASE  PER  Y 

EAR  I  N  PAYMENTS;:  *  ;  HA  :  I  F  RA<0  TEEN  G 

O'TOI  1  9  2  9:  !  i  I  !  il  ■  (:  i 

R  E  TlU'RiN  :  I  ,  !  !  1  !  i  '  :  ;  i  ;  '  li. 

LOCATE  15.1  INPUT  AMOUNT  OF  PAYMEN 

T  S  ITOI  :S  AiV  I  N  G'S:  :  |  ’  I  ;  |CAI  (  1 . 1  :  I  F  C  A  i  1  I  <  «  T  H 
E  n  ìgoto;  i  q  49  !  j  :  I  , 


INCREASE  PER  Y| 
IF  R  A  <  9  TEEN  G| 


E  TURN  ;  !  ì  j  |  j 

r M1  ... 


EM!  END  OF  THE'  P  ROCK  AM 
EMI  j.l.;. *  •  .  .  .  . 

E.Yi  Olili: SU  S  :  EINÌd!  I  !  :  !  I  |  ! 


«  4  ne*  i  ■  u  m  c.  ii  -  <0  S.1.0C,  m  2  « 

LOCATE  9  .  1  :  INPUT  -PERCENTI  ({INTEREST  • 
'  :  I  N  :  1  F  I  N  <  9  THEN  529 
H  = IN  19  9 

LOCATE  11.  T:  INPUT  "COMPOUNDS  PER  YE 

AH  :  :  X  :  I  F  K<  1  THEN  549 

DN  CEO  ICE  GOSUB  629  689  7  7  9  919 

LOCATE  24.1:PH:NT  *  PRESS  ENTES  TC  R 

ETURN  TO  THE  MENU  SCREEN'; 


S  7  9  ì  |AJ=INXEYJ  :  IF  *1=  '  THEN  5  79 

5  8  9|  GO  TO  3  7  9 

59  91  |R  E  M  . . . . . 

69  91  |H  EM  COMPOUND  INTEREST  SUBROUTINE 

619  |H  EM  . . . 

629  GOSUB  969 

6  39  LOCATE  15.1PRINT  ‘FUTURE,  SAVINGS  = 

*  •  ;  FNRD  I  FNC  )  :  LOCATE  17.1  :  PR  !  NT  ‘TOT 
|A  L  !  N  T  E  R  ES  T=  S  '  F  N  R  D  I  F  NC-P  R  E  ;  X  I  , 
649  |R  E  T  U  R  N 

659  (REM  . . . 

6  69  (REM  LEVEL  PAYMENTS  SUBROUTINE 

6  7  91  jR  EM . * . .  .......  . 

689  GOSUB  989: GOSUB  1999 

6  99  I=R  X  :  TY=Y  -t-M  1  2  .  T  P  =  i  NT!  N  P’-T  Y  )  :  I  F  T? 

p9  THEN  TP— 1 

799  |N  =  X  N  P  *  T  P  :  F  =  F  N  F  V  :  N  =  X  NP  :  P  =  F  N  P  V  :  TY  = 

M  (12  NPI-I.NTIM  (12  N  P  )  )  I  /  :N  P 

719  IF  T  Y  <  >9  THEN  ND=ND  I  T  I  NI/  1  (  Il  9  9  •  X  !  ' 

(  X  •  T  Y  i  .  !  I  |  |  i 

729  LOCATE  17.1PRINT  ‘LEVEL  PAYMENTS» 

S  :  FNRD.  F  N CP  I 
739  (RETURN  :  i  I  :  ■ 

7  4  9  (R  EM  . .  .  .  . . .  .  . . 

7  5  9  (REM  INCREASING  PAYMENTS  SUBROUTINE 

7  6  9  [REM  . . . . 

7  7  9  GOSUB  9  8 9.  GOSUB  1  9  9  9  : GO S U B  1929 

789  II  =R  /  X  :  T  Y  =  Y+M  /  1  2  :  I  F  Y  <T  OR  TY>2  5  THE 

N  LOCATE  19.1.:  PHÌNT  ‘TIME  PEHIOD  M'J 
ST  BE  IF  ROM'  1  TO  2  5  YEARS  IPILEASE  RE 

-ENTE»  TlH.E  iDiAT  E  S  .  ‘  ;  CHR  S  (  7  II;  C.H  R  S  (  7  : 

i  CIRRI  (  7')I;:C;H.RS  (7  )  :  PR;I  NT  , "PRESS  ENTIER 
|  TO  ’CONT  IÌNIUIEi'l  ELSE  8  19  ;  i  ; 

7  99  |A*=INKEY$  I,F  Al*  =  ‘  ‘  THEN  799 


PUBBLICAZIONI  E  MATERIALE  DISPONIBILE  NEL  VOSTRO  CLUB  TI  99 


•) 

•) 

•) 


*) 


*)  MANUALE  IN  ITALIANO  "  COME  PROGRAMMARE  IN  ASSEMBLER  CON  MIN IMEMOR Y" 
Allegata  la  Referenr  Card1  dell  'Editor  Assembler  5  programmi  in 
listato  e  il  listato  del  DISASSEMBL ATCRE  Bas ic .(4/ PufiU  ire  12.000 

•)  MANUALE  DELL' EXTENDIC  BASIC  IN  ITALIANO  190  pagine  di  traduzione 
del  nostro  socio  MILLEMACI  di  Guardiagrele  cui  potete  richiederlo 
Nel  nostro  Club  è  disponibile  a  lire..... . 19.000 

MANUALE  DELL ' EDIT OR  ASSEMBLER  520  pagine  Inglese _ 1 ire . . . 45 . 000 

MANUALE  DEL  TMS  9900  8  gagine  in  Italiano  e  25  Inglese  lire. 6. 000 

IMPARIAMO  A  PROGRAMMARE  IN  BASIC  .  Volume  di  144  pagine  con  eser= 
cizi  risolti  e  proposti.  10  proorammi  comoleti  di  grafica  colore 
suono.  Tutte  le  funzioni  del  TI  basic  arricchite  con  molti  esem= 
pi.  Introduzione  ai  giochi  etc  etc . lire  14.000 

LEZIONI  QELLr  EXTENDIC  BASIC  in  cassette.  7  lezioni  su  4  cassette 
piu'  un  gioco  velocissimo  GEMINI  . 20.000 


•) 

•) 

•1 


•) 


LEZIONI  DEL  BASIC  su  4  cassette 


lezioni  per  imparare  il  Basic 


dallo  stesso  Computer.  Interattivo . lire  20.000 

VOLUME  50  PROGRAMMI  COL  VOSTRO  TI  In  f rancete^  90  pag.lire  20.000 

RIVISTA  99'er  IN  FOTOCOPIA  (  ogni  numero  circa  80  pagine)  sono 
disponibili  i  numeri  MOV  83»  MARZO  63,  OEM  83,  rE5  83,  e  un 
numero  speciale . . . lire  11.000 

VOLUME  "  TI  99  COMPUTER”  DI  K.TCWNSEND  INGLESE . LIRE  15.000 

LISTATI  DI  TUTTI  I  PROGRAMMI  CHE  ABBIAMO  A  DISPOSIZIONE  POSSONO 

ESSERE  RICHIESTI  allegando  la  somma  di  . lire  5000 

c ad uno ’  Sono  esclusi  i  programmi  cesti on ali  di  ingegneria  di 
contabilità.  (  vedi  lista  programmi). 

FOTOCOPIE  DI  ARTICOLI  apparsi  sulle  varie  riviste  sono  dispobibili 
a  lire  100  fotocopia.  Minimo  ordinare  20  fogli  e  acgiungere  700 
per  la  spedizione 

N  . 


Programma 


Ul  AutyZiPftAq 
{jé  IkÌxmaIs.  A 


in  Basic 
in  EX.  B. 


iSlUklO  0 
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Nome  Programma 


Ifi  iPtbllUi^D  ti  fcA<V(\)IÌA 


TOTALE 


IMPORTO 
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